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INTRODUCTION 



For the average PET user the prospect of writing a set of 
programs to perform, say, a business application is daunting. 
Many don't even try, preferring to employ someone to do the 
job or buy an off-the-shelf package. What is daunting is not 
simply writing a program, every PET user will probably have 
written dozens of simple little programs for his own use. It 
is the size of a set of application programs, the thought of 
writing several thousand lines of Basic code. Allied to this 
is the question of how and where to start, and what exactly 
one wants the program to do. These problems are purely a 
mental block, since any person of average intelligence can 
write and design such a program. Given a logical framework on 
which to build, plus a few aids in. the form of standard 
subroutines, the process of writing an applications program 
becomes considerably easier. 

Defining the Program Structure. 

The process of writing and running a program is one of 
defining a problem or process from the very general level of 
thought used bv the human mind to the very precise sequence 
of instructions used by the machine. The lowest, and 
therefore the most precise level, is the binary code used by 
the microprocessor; this is the level used in machine code 
programs. At a higher level are the commands of a Basic 
interpreter. These allow instructions to be given to the 
processor in easilv understood English language statements. 
The execution of one instruction statement in Basic may 
require several hundred steps of machine code program. The 
next level above the Basic interpreter is the subroutine. 
Thi - S is a block of code written in Basic to perform a 
specific function. Subroutines give the programmer higher 
level functions than those available in Basic. Thus, a 
subroutine to sort an array into alphanumeric order gives the 
programmer a new command, summarised as: SORT ARRAY X. Just 
as the Basic command represented several hundred machine code 
commands, so a subroutine mav consist of a hundred Basic 
commands. The first level of command generalisation above the 
subroutine is the program, consisting of a collection of 



subroutines. Above the program is the highest level, the 
suite of programs, this is a collection of several programs 
which are united by a common data base and collectively 
perform an application, eg:stock control. 

The existence of a hierarchy of conceptual 
generalisations is very useful since it allows the process of 
program writing to be split into a series of easily defined 
stages. This firstly gives the programmer a logical sequence 
of operations and secondly allows much of the work associated 
with the lowest levels to be automated. This is done by using 
a high level language like Basic which removes the necessity 
of writing in the lowest or machine code level. Likewise the 
amount of Basic code required to be written can be 
considerably reduced by using standard subroutines. Entire 
programs within a program suite may even be standard and 
therefore usable in many different program suites. 

The first stage in writing a large applications program 
is to define the exact function of the program suite. It is 
also important at this stage to determine what hardware will 
be used by the program, together with the limitations and 
capabilities of that hardware. It is necessary to know what 
hardware is being used since this determines the size of the 
program, and the nature and organisation of data files used 
by the program. Thus the approach taken in writing a program 
for a 32K PET with 3040 disk and 3022 printer will be totally 
different to that taken for the same application on an 8K PET 
with cassette deck. With these limitations in mind, the first 
stage is to write a short description of the application, 
with a definition of the input, output, and data files. 

Consider a hypothetical user with a 32K PET, dual 2040 
floppy disks and 3022 printer wishing to use this svstem to 
implement a library reference data base. The first stage in 
system design is for the user to decide exactly what the 
program must do. In this case the program is required to 
reference a book or books from a small library of 500 titles 
by either subject matter or author. The user wants to tvpe in 
a subject in which he is interested and the computer to 
produce a list of book titles in his library containing 
information on that subject. Similarly the user wants to 
produce a list of books written bv a particular author. The 
problem is a fairly straight forward one of data access and 
retrieval from a data base stored on disk. The program can be 
divided into four parts: 

UData entry: used to enter details of new titles added to 
the library. 

2) Data update: needed to correct mistakes in the data base or 
to delete entries whose titles have been removed from the 
library. 

3) Data access: the part of the program which performs the 
user's requirement of accessing data from the data base in 
response to a particular input. 



4)Data file maintenance: to allow the user to make security 
backup copies of the data file. It will also perform 
functions such as sorting the data file into alphabetical 
order. 

You will notice that of the four parts of this program three 
parts are concerned with the upkeep of the data file. This is 
typical of all programs using disk data bases. Each of these 
four program parts are totally independent of the other parts 
and interact with each other only via the data base. Since 
each part is independent it can be written as a separate 
program, which makes life much simpler for the programmer - 
only one part of the program need be written at a time. Each 
part can be stored on disk as a separate program and loaded 
by the user when required. A collection of programs like this 
constitutes the program suite. 

File Structure. 

The factor unifying all the programs in a suite is that 
they all use the same data base. Before any programs are 
written, the nature and format of the data must be defined. 
This is probably the most critical and trickiest part in the 
design of a program: bad file structures are the cause of a 
lot of poor programs. Unfortunately there is no easy rule of 
thumb which can be used to select the best kind . of data files 
to be used in a program. The only rule worth remembering is 
that if the data file is very large, by which I mean a file 
which contains more data than can be stored in the machine's 
internal memory, then that file should in the majority of 
cases be a random access file. Short files which can be 
loaded into arrays and stored in core are best stored on disk 
as sequential files. The reason for this rule is that it 
makes data access times considerably faster and also makes 
file maintainance much easier. 

There are three principal ways in which data can be 
stored: sequential disk (or tape)files, direct access disk 
files, and data stored within a program as data statements. 
Each of these methods has its advantages and disadvantages 
and the selection of method used depends on finding which is 
best suited to the application. Sequential files are the 
simplest to use since the operating system automatically 
organises the information. In a sequential file, data items 
are recorded one after the other to create a chain of data, 
with the first item recorded at the head and the last item at 
the tail of the chain, in "sequential" order. The virtue of 
sequential files is that data items can be of variable 
length, thereby eliminating wasted disk or tape storage 
space. The disadvantage of sequential files is that each time 
a record is read the entire file in front of that record must 
be read, since there is no way in which the program can 
determine the starting location cf a particular record. Also, 



the only way in which an item can be inserted or amended in a 
sequential file is by writing an updated version of the 
entire file. 

Direct access files differ from sequential files in 
that one can specify the track, the sector on that track, and 
' C H h p a ; aC p ter .J* thin that sector on which a record is to be 
recorded. Provided a record of the location of each record is 
kept, then direct access files allow one to go straight to a 
record without reading all preceding records on the file! 
Direct access files thus allow information to be accessed in 
a non-sequential or random order (for this reason direct 
access files are usualy known as random access files). It is 
unnecessary to rewrite the entire file to amend a record on a 
direct access file. However, records on a random access file 
!Tf US thJ T V , length ' otherwise the task of keeping track 
The uJ°TT f> eaCh u reC ° rd beCOmes excessively complex. 
The use of fixed length records means that direct access 
files use more space than sequential access files to store 
the same data. The primary advantage of random access files 
is speed of access. The disadvantage of direct access on the 
PET depends on which version of Basic and disk operating 

H S n'S ta '«! ^ y ° Ur machine - Machines using P B 
create*™ d ^ fairlV COm P ,ex programming to 

fater ,t dlreC n t aCCeSS iUe5 ' This has cured on 

later machines using Basic 4.00 and DOS 2.00. These machine, 
have le to use relative record file command Relaiv" 

record means that data is accessed bv record number ie 
record 50 is the 50th record on the file. Direct ac^s Is' 
the principal choice for all data base files where large 

p'rogram.'" ° f ^ l ° be ^ «" d *Y * 

within It ^ desirabJe in som e cases to store data directly 

of raoid a P cr" ram V Statem ^ s - Tb - has the advantage 

of rapid access and ,s particularly useful in tape based PET 

sratTm-enrge?" T ^1°' amended USi ^ ™ au ™ ^ 
accesT ec I Pith k Subroutine - ^ata statements can be 
accessed either by a sequential search or by a relative 
record method. The obvious disadvantage of storing data 

sto ed" fn "the" '» that SinCe a » * 

to the " iZ e of . ( maximum size of the data file is limited 
is available memory. Another disadvantage which 

is shared by sequent.al files stored in arrays is that data 
entered or updated can be lost if the machine is switched off 

'""in thT'ex tHe , Pr ° ?ram ° r d3ta °" tape or di^! 

nmhii example program, careful examination of the 

R b r ls rev th a e s Dr that thr r ma K ior data fiies a - re ^- d - ^ 

e ad l ""I S ta ^ file Which Contains book 
titles and details of the contents: this file is to ho 

organised as a random access file. The othe two files are 

both sequential: an author file and a subject file It is nZ 

^ cess^Each^rec" ^" fUeS WhlCh is ~^J^^ 
access. Each record contains, say, the author's name followed 



by a series of pointers to records in the random access main 
data base file. These pointers are simply record numbers: in 
a random access file system this is all the information 
required to access a particular block of data from a file. 
The advantage of using a short file consisting of a key and 
one or more pointers into a larger file is primarily one of 
speed, but also it is much easier to sort a short key file 
than a long random access file. Another advantage in using 
short key files is that one can have multiple key files, just 
as here we have an author file and a subject file. 

Having decided the types of file to be used in the 
program suite, the example is very typical of many 
applications programs, we must decide on what data format is 
to be used in those files. Very careful thought should be 
given to data formatting if optimum usage is to be made of 
the storage capacity of the machine. First let's look at 
random access files. A random access file consists of a set 
of records: there may be one hundred records, a thousand or 
even ten thousand, the number depending on the application. 
In the example the maximum number of titles is 500 therefore 
we do not require more than 500 records in the random file. 
Each record is of the same length, common record lengths are 
128 or 2 56 bytes or some other power of 2, since using a 
record 2 56 bytes long makes for greater reliability because 
this is the natural organisation of the computer system. 
Since the PET disk is divided into 256 byte blocks it is 
easiest if we use one block per random access record, giving 
a nractical maximum of 640 records on a disk. The first step 
is to jot down a list of all the different data you wish 
stored in each record and against each item to note the 
maximum number of bytes required to store it, together with a 
note of whether the data is numeric or alpha. A running total 
of the number of bytes used should be kept since it is very 
important that the total should not exceed the maximum which 
we have set for the record, in this case 256 bytes. Also 
great rare should be taken that each data item, or field as 
it is known, within a record has sufficient space. The space 
must a ccom modate the maximum possible size data entry 
n pce«arv, to ensure transfer of all required information in 
that field. In our example the list would probably look 
something like this: 



AUTHOR 


30 


Alpha 


TITLE 


60 


Alpha 


DATE 


6 


Numer ic 


CONTENTS 1 


80 


Alpha 


CONTENTS2 


80 


Alpha 



There are four alpha fields in the record and one numeric. 
Re-ords should be stored so that all the fields are of the 
*ame variable tvpe. In the example the date should be 
converted to an alpha string before it is entered into the 



record. The date field always occupies 6 bytes but the four 
alpha fields are of variable length; the number of bytes 
quoted in Table 1 are the maximum for each entry. Any entry 
shorter than the maximum is padded out with spaces on the end 
of the string to bring it up to the maximum length. For 
instance Shakespeare, W will be stored as 

SHAKESPEARE.W (the dashes represent spaces)! 

Using this method we know that the title field always starts 
at the 31st byte of a record and ends on the 90th byte, 
making it easier to use the string manipulation commands in 
Basic to retrieve each item of data from a record. 



2fJ 70 76 255 

I Author Title | Date Contents 

Since it is envisaged that our example random access file 
will have a maximum of 500 records each of 256 bytes, the 
total data base will have a maximum size of 125K bytes. This 
will fit nicely on one disk, a fact which should alwavs be 
aimed for when designing a program since it is good practice 
to use one disk drive for data and the other for program 
storage. By the same token it is not desirable to change 
disks during program execution since this invariably leads to 
unreliability and a greatly increased chance of losing a data 

While random access records must always have a fixed 
length, records in sequential files can have either fixed or 
variable lengths. The choice depends on the application. In 

fixed I.T/tH H dat f WiH alWayS bG the Same len * th > makin * a 
fixed length and format sequential file the logical choice. 

sVnntnt^. ran J d ° m aCC6SS file in our example each 

sequential file record may contain multiple fields,so fixed 
format,fixed length records are the answer. They are much 
easier to dissect than variable length records. But there are 

L P nath atl ° nS ' 3nd , ° Ur exam P ,e is °™ of them, where fixed 
length sequential records are impractical. Each of the two 
sequential files contains a variable number of records. Each 
record consists of a key (the author's name or his subject) 
and a variable number of numeric pointers to records in the 

annli^V aCCeSS , „ fHe - T ° USe fiX6d Ien * th records in this 
application would require the allocation of sufficient space 
in each record to accommodate the maximum length key word 
together with the maximum number of pointers. Since the file 
is to be stored in core memory as an array, the large amount 
oi space (and therefore memory) wasted by using fixed length 
hTZ I l hiS „ t0taUy ^Practical. When records d not 

Ji.lH tk lengt , hS ' demarcation ™rkers must be used between 
lields. The marker most commonly used is an asterisk. To 
dissect this type of record, search from left to right for 
the f irs t occurrence of the marker character. The record Z 



the right of the marker is removed and the next marker 
searched for. This method is clumsier than that used for 
fixed length fixed format records, but is just as effective. 
In our example a record in the author file may be stored as: 

SMITH. 3* 1 4*56*79* 125*256*428*0 

The first field is a key - the author's name - SMITH. J. The 
next and subsequent fields are the pointers to the random 
access file showing that titles written by this author are 
stored in records 1 4,56,79, 1 25, 256, and 428. The zero is used 
as an end of record marker. Using this method the author's 
name can be as long as necessary and can be followed by as 
many references as are required (subject only to the maximum 
length of a record which is limited by the 80 character 
buffer). 

Whatever file type is used, pointers must be used to 
locate the last entry on the file. This is vital if one is to 
be able to add further data to the file without risk of 
erasing existing data. In a random access file record zero 
could be allocated for this purpose, providing that the 
programmer remembers that this record must only be used to 
contain the number of the next free record. Alternatively 
this information could be stored, together with other 
information essential for the correct operation of the 
system, in a special parameter file. Parameter files are very 
useful in any program suite, since they not only allow 
variables to be passed between programs or stored between 
runs, but, they also allow a package to be amended to suit a 
particular user's requirements. In a sequential access file 
the easiest method is to use a special end record as the last 
record on the file. This way one simply continues to read 
records from the file until the end record is encountered. 
The usual form of end record is one filled with a string of 
Z's thus: 

ZZZZZZZZZZZZZZZZZZZZZZZZZZZ 

It is then a simple matter to check if, say, the first three 
bytes of a record are "ZZZ", since the odds against this 
combination occurring naturally in text are large it is a 
reliable indication of the end of the file. The actual number 
of records in a sequential file can be obtained, as the file 
is read, by counting the records. Since the file will be 
stored in core, records can be easily added and inserted in 
the correct location using a sort procedure. The new file 
created in this way is then rewritten over the old file. If 
the file becomes larger than the available array area it will 
have to be broken into two sub files, as we have done with 
the author and subject files which could have been merged as 
one file if core space permitted. 



The Program Specifications. 



In these first stages we have defined how the data will 
Sf + °[ Y the P r °8 ram and what functions it is desired 
that the program perform. From these decisions a program 
specification can be written. This is the framework of the 
program around which the actual coding will be built. It is 
important that it is correct in every detail since a mistake 
at this stage may prove very difficult to correct later on. 
These specifications also form the base around which the 
final user documentation can be written. The specification 
should contain a complete description of the operation of 
each program in the suite showing what data is required from 
the operator, what data is to be output and which data files 
are accessed. This written description should be accompanied 
by a diagram showing the flow of data. The second part of the 
specifications should be a complete table of the data file 
structures used by the suite. The third and last part should 
be a description of how data input, and output ( either on 

!2! SC + ree K ° r ° n 3 P rinter) > sh °uld be formatted. This mav 
seem to be just a cosmetic operation, but the ease with which 

nn °th e / at + H r T USe thC SySt6m is almost entirel y dependent 
on the thought put into this part of the specification. 
At each stage in the program the screen layout and/or 

DaoeT A t P W k° U1 m k 6 draWn ° Ut ° n 3 P iece of squarS 
paper. A table should be made of standard forms of input to 

L U a S t ed throughout the programs. One example would be the 

format of all date inputs. All inputs ought to be made using 

the same variable type and format since it is disturbing for 

the operator to have some inputs terminated by a car rage 

return and others not. One might make a decision to have all 

for m.M ft" 8 n at V th 3 fiXed len 8 th P rom P* and traps 
should Luo T 165 ' H lHegal u Carrage returns ' etc. Decisions 
fnnn v J ♦ at tMs Sta S e as to the na ture of any 

use^of Tc^VuZ^ err ° r Ch6Cking P-~—., such as the' 

th* A X - iS \ g ° 0d id6a t0 USe fIow charts at ev ery stage in 
the design of a computer program. By displaying a process in 

LZ SU t f ° r ?, lt 'I USUally mUCh easier "J detect' faults !n 
logic flow. Flow charts of program sequence and logic should 
be drawn for each level of the hierarchy of program 
definition. As the definition becomes more precise, process 
steps on the general definition flowchart can be replaced by 

sleo C Pr a o r re,T 0d, ; leS m ° re accuratel y def ^ng that process 
need* not nf V T ^°I res P ondin g to standard subroutines 
need not of course be defined as precisely as the rest of the 
program. Extensive use of standard subroutines helps reduce 

V c Zf x 2, 0f the fin ? flowchart - Each ste p on the fi -i 

moTe IW correspond either to a subroutine or one or 

more Basic commands. This final version of the flow chart can 
used as a guide when writing the program code. 



Subroutines. 



Once the specifications have been written, programming 
can begin. When working on a suite of programs it is best to 
start with data entry, since this program can then be used to 
create the data files needed to test the other programs in 
the suite. Each of these programs can be divided into a set 
of subroutines. A subroutine is a short, self contained 
program written to perform a specific function, which can be 
run by itself without the rest of the main program. The great 
virtue of using standard subroutines to build a program is 
that they need not be specific to that program, and can be 
reused in any other program requiring them. This means that 
once a good subroutine has been written it can be repeatedly 
used in other programs greatly reducing programming effort. 
The extensive use of standard subroutines is the key to 
writing good programs quickly and easily. 

Parameters. 

To make maximum use of standard subroutines the 
programmer must adopt a strict dicipline about the use of 
variable names. This is essential since a subroutine 
communicates with the main body of the program (ie the code 
which links the subroutines together) by means of input and 
output variables. Obviously a specific set of variables must 
be reserved for this purpose. These variables are known as 
parameters and there are several ways in which they can be 
supplied, or passed, between a subroutine and the main 
program or another subroutine. In this book we will use two 
methods of passing parameters. The first is known as "call by 
value and result" and the second as "call by reference". 
Formal methods of passing parameters are needed because the 
variable names used in a subroutine are unlikely to be the 
same as those used in the main program. Thus a variable used 
within a subroutine may be called PX but the value of PX is 
obtained from the main program. This subroutine may be called 
several times in a program, but the value to be passed to PX 
(this is called a formal parameter) might be stored in the 
first case in variable A and in the second case in variable Q 
(both A and are actual parameters), and so on. Unless a 
value is placed in the formal parameter from the main 
program, by setting it equal to the actual parameter used in 
the main program, then the result of jumping to the 
subroutine will be wrong. 

Call by value and result is the commonest and most 
straightforward method of passing parameters between 
subroutines written in Basic. This requires two parameter 
passing operations - one before jumping to the subroutine and 
the other after returning from the subroutine. In the first 
operation the values of the actual parameters are moved to 
the formal parameters, these are the parameters used by the 



subroutine. In the second operation the values of the 
parameters set by the subroutine are moved from the formal to 
the actual parameters. As an example: we wish to call a 
subroutine to perform an arithmetic operation on two 
variables and produce the result as a third variable. The two 
actual parameters used by the subroutine are stored in this 
case in variables A and B, and the actual result parameter in 
variable C. The formal parameters used by the subroutine are 
variables PX and PY, the formal parameter set by the 
subroutine is variable PZ. y 

Operation 1 - PX=A:PY=B 

Jump to subroutine. 
Operation 2 - C=PZ 

In this particular case all the formal parameters are either 
used or set, however, this may not always be the case. 
Suppose in the above example the subroutine has a fourth 
formal parameter PQ which is only set to one if the result of 
the arithmetic operation is negative. Sometimes the value of 
Wl11 be 1 and for the remainder of the time 0. However 
since only a negative result is being tested for, then once 
is set to 1 it will remain at 1 for all subsequent calls 
of that subroutine (unless set to prior to calling the 
subroutine). In another situation only the formal parameter 
may be passed to the subroutine instead of PX and PY. Here 
one would normaly want the value of PY to default to zero, 
unless PY is actually set to the value will be that entered 
when the subroutine was last called. In these cases we need 
to know which parameters are used and which are set. The 
standard method is to regard all parameters as both used and 
returned at all times, meaning that where no actual 
parameters are passed to formal parameters (as in the case of 

P K ra ,T e ! erS US6d ° nly for result s) the formal parameters 
should be set to their default value. The two operations for 
passing parameters now become: 

Operation 1 - set all formal input parameters equal to their 
corresponding actual input parameters. Set all formal output 
parameters to their default value. 

Jump to subroutine. 
Operation 2 - set all actual output parameters equal to their 
corresponding formal output parameters. Set all formal input 
parameters to their default value. 

The passing of parameters using the method of call bv 
reference in Basic programs is neither as simple or as common 
as the call by value and result method. The principle of call 
by reference is that the subroutine and main program are 
g K Ven Dn-r e address of the Parameter rather than its value. On 
the FhT this means that values are stored and read from a 
protected area of memory using the PEEK and POKE commands. 
Call by reference has two virtues. First it allows the easy 



incorporation of machine code subroutines within a Basic 
program. Secondly it allows parameters to be passed between 
programs in a suite, where normally all variables would be 
erased by the process of loading a program. This method does 
however pose several problems. Firstly all variables must 
have a fixed length and format, since a set number of 
locations starting at a specific address will be allocated to 
each variable when the program is written. Secondly the 
conversion of variables from strings or numeric variables to 
POKE values and vice versa requires in many cases fairly 
lengthy Basic code. This problem does not effect numeric 
variables with values of less than 256 since these can be 
stored as a single byte. The passing of parameters by 
reference is thus ideal for use with status flags or 
counters. 

Debugging. 

Once a program has been written it must be thoroughly 
tested and debugged before it is incorporated into the suite. 
Every permutation of input or output should be checked 
against the expected input or output on the flow chart and 
specifications. Files should be checked that data is stored 
in the correct format, and that data read by the program from 
file is correct. One way of checking programs is to insert 
break points (a STOP command) into the program at points 
where one wishes to check the contents of variables etc. A 
useful feature of PET interpreter Basic is the ability to 
check the contents of variables after a break by printing the 
variable in the immediate mode. This way one can work through 
a program checking on the logic flow. To check file handling, 
test files can be created using the input program in the 
suite (this is the first program in the suite to be written). 
If the program being written is the input program, then the 
onlv existing files required will be parameter files, these 
can be created by small test programs written for the 
purpose. Similar test programs can be used to check the 
contents of files written by the program. 

The process of debugging a program can be the most 
tedious and time consuming part of writing a program. It must 
be noted that the amount of time spent debugging is very 
often inversely proportional to the time spent on the initial 
planning and specification of the program. The process of 
debugging is also made easier if REM statements are liberally 
used throughout the program. One can then easily determine 
the exact function of a block of code without having to trace 
it through the whole code. 

The Program Suite. 

Once all the programs in the suite have been written 
and debugged, they can be integrated to form the program 



suite by means of a menu program. A menu program is simply a 
means of selecting and loading a program without having to 
use the normal load command. Menus are also used within 
programs to select one of a range of functions or options. 
Having linked the programs together via the menu, the 
complete suite should be tested, to ensure that there are no 
problems in transfering data or parameters between programs. 
As with debugging individual programs, the chances of faults 
appearing at this stage are considerably reduced if 
sufficient care was taken in the program design and 
specification stages. 



Notes: 



The majority of subroutines have been written to conform to 
certain standards. First, all subroutines have line numbers 
above 20000. Second, major parameters passed between the 
subroutine and the main program usually begin with the 
character P. Third, wherever possible subroutine calls within 
subroutines have been avoided (the principle exception to 
this is the subroutine, CURSORCONT). 

To make the reader's use and comprehension of the 
subroutine's function, and integration into a program easier, 
the majority of subroutines have been given sample calling 
routines. These routines usually start at line 1000 and end 
prior to line 2000. Line numbers before 1000 usually contain 
variables and constants used by the subroutine. 



All the subroutines and programs in this book are available 
on disk, copies may be obtained from Computabits Ltd, P.O. 
Box 13, Yeovil, Somerset, price £10.00. 



DATA INPUT 



Data entry poses several problems when writing a 
program. Firstly the normal INPUT command's inability to deal 
with commas, colons or null entries. Secondly the need to be 
able to prevent the wrong keys being pressed or the wrong 
variable type entered (eg. an alpha character entered in a 
numeric input). Thirdly numeric and date inputs should be 
checked for incorrect entry; the facility should also exist 
for controlling the maximum and minimum number of characters 
in any entry. Lastly data input should be easy for the 
operator to use, incorporating full editing both of the 
current entry and preceding entries. These problems can be 
overcome by using special data input subroutines. 

In all these data entry subroutines written in Basic, 
the INPUT command is replaced by the GET command. This allows 
each character of the input to be tested, to see if it is of 
the correct variable type or is one of the command keys, 
before it is added to the data already input. All variables 
are therefore input as string variables. The only problem 
with using the GET command is that in machines using Basic 
1.00, 2.00 or 3.00 the occasional delay caused by garbage 
collection can be a nuisance. This is more frequent when 
using GET for input owing to the repeated concatenation of 
strings. Despite this the use of GET gives the programmer far 
greater control over data input. 

In order to give the operator editing capability certain 
keys must be given command functions. The following is a 
proposed standard for key functions. 

Stop key. 

The stop key is disabled at the beginning of a program with 
the command: POKE 144,49. At the end of the program the stop 
key should be reenabled with POKE 144,46. 

Delete key. 

This key in the unshifted mode will have the function of 
deleting the entire entry with the prompt being returned to 
the first character in the field. 

Right Arrow. 

This key in the unshifted mode deletes the last character 
entered and places the prompt back one character. 

Cursor Up. 

The shifted cursor-up key has the function of aborting the 
existing entry field and returning to the preceding entry on 
the screen (if any). The preceding field is erased and the 



prompt placed in the first character position. The aborted 
field contains a null string entry. 



Cursor Down. 

The unshifted cursor-down key aborts the existing entry field 
and places the prompt in the first character of the next 
field on the screen (if any). The aborted field contains a 
null string entry. 

Return. 

Pressing return will accept an entry, provided it is within 
certain parameters and passes any error checking procedures. 
The parameters used are maximum and minimum entry length. 

Question mark. 

This is an optional command key which can be used to display 
operator help instructions. These instructions are displayed 
on the bottom two lines of the display. 

The bottom two lines (2k & 25) are reserved for error 
messages, prompts, or help messages related to the line 
currently being input. On all inputs an underline showing the 
maximum input length is used as an input prompt. 

ALPHAINPUT 

This subroutine inputs a data string with a maximum length 
set by parameter P3 and a minimum length by P4. The 
subroutine allows the entry to be edited using the left arrow 
to delete the last entered character and the delete key to 
delete the entire entry. The entry is accepted and the 
subroutine exits either when the return key is pressed and 
the data exceeds the minimum entry length or when the data 
input equals the maximum data length. 

Parameters used: 

P3 - maximum length of input data string P$, an input prompt 
line P3 characters long is drawn by lines 28010-28012. 
P4 - minimum length of input data string P$, one can not exit 
from the subroutine until an entry of P4+ characters has been 
input. 

P$ - character string input by subroutine. 
DIGITINPUT 

This is another version of the preceding subroutine, the 
difference being that the only characters accepted for data 
input are numeric variables, decimal point, and minus sign. 
I he subroutine has the same input and output parameters and 



editing functions as Alphainput. 



ADDRESSIN 

Whereas ALPHAINPUT is a general purpose input subroutine for 
alphanumeric variables ADDRESSIN is specificaly designed to 
input a name and address. The subroutine will input a name 
and address of five lines each line having up to 30 
characters. Each line is automatically terminated and the 
next line commenced by pressing the comma key, except for 
line 5 where entering a comma has no effect. This allows the 
name and address to be entered without having to press return 
after each line since the lines are naturally terminated with 
a comma. Full editing on a line is allowed using either 
delete or left arrow, also the current line can be aborted 
and a previous line reentered by using the cursor-up key. All 
alphanumeric characters are accepted as valid except command 
characters and spaces where they are the first character on a 
line. The address entry is terminated and the subroutine 
exits only when the key sequence - full stop - return - is 
pressed. 

Parameters used: 

P$(5) - input string array, one element to each line on the 
address. 

YES/NO 

This is another special purpose input subroutine with the 
very simple function of inputting a yes or no answer to a 
question. Pressing Y for yes will set output parameter P to 1 
and YES will be printed on the screen. Pressing N will set P 
to 2 and NO will be displayed. 

Parameters used: 

P - yes/no flag: l=yes and 2=no. 



X 

> 

2 

c 



1 000 
1001 
1002 
1003 
1004 
1003 
1010 
1020 
1030 
1100 
2000 
3000 
4000 
5000 
6000 

28000 
2S002 
28604 
28006 
28008 
28009 
28010 
28012 
28014 
28016 
28020 
28022 
28024 
28026 
28030 
28032 
28034 
28038 
28040 
28042 
28044 
28046 
28050 
28052 
28054 
28058 
28060 
28062 
28064 
28066 
2806? 
28068 
28070 
READ V . 



REM 

REM *EXAMPLE OF SUBROUTINE CALL 
REM *TO INPUT AN ALPHA STRING 
REM ^MINIMUM LENGTH 3 CHARACTERS 
REM *MAXIMUM 5 CHARACTERS. 
REM ************************* 
P3=5 :p4=3 - REM **LENGTH MAX.-'MIN** 
GOSUE28000 

PRINT: PRINT -PRINTP*: REM ** PRINT INpiJT STRING ## 
END 
REM 
REM 
REM 
REM 
REM 

REM ********************** 
REM *SUEROUTINE TO INPUT A 
REM *DATA STRING 
REM ********************** 

P$=" » 

REM ***PRINT PROMPT LINE*** 
F0RQ=1T0P3 : PRINT"_" .; : NEXTQ : PRINT"! " : 
FORQ= 1 T0P3+ 1 ■ PR I NT " II" .; : NEXTQ 
REM ***GET CHARACTER*** 
GETA$ : IFA*=" "GOTO28016 
REM ***TEST FOR COMMANB KEVS*** 
I F A*=CHR* <: 1 3 > G0T028068 
IFA*="«-"THEN28040 
I FA*OCHR* < 20 > GOTO28052 
REM ***HELETE ENTRV*** 
PL=LEN(P$> •FORQ=lTOPL:PRINT"ir.; NEXT 
GOTO28008 

REM ***DELETE LAST CHARACTER*** 
IFP*=""GOTO28014 
I FLEN £ P* > = 1 THENP$= " " : GOTO28046 
P* =LEFT* (. Ft , LEN < Ft "> - 1 > 
A$="IL_H" : GOTO28064 
REM ***VALID ALPHA CHARACTER""*** 
IFA*<" "GOTO28014 
I F A*> " Z " AND At < " I " GOTO280 1 4 
REM ***ENTRV TOO LONG?*** 
I FLEN < Pt > =P3GOTO28070 
P$=P*+A* 
PRINTA*.; 
GOTO28014 

REM ***ENTRV TOO SHORT?*** 
I FLEN < Pt > <P4GOTO280 1 4 
RETURN 



16 



z 

I— I 

H 

o 
5 

1009 REM if:************************* 

1001 REM *EXAMPLE OF SUBROUTINE CALL 

1002 REM *TO INPUT ft NUMERIC STRING 
1803 REM *MINIMUM LENGTH 3 DIGITS 
1004 REM *MAXIMUM LENGTH 5 DIGITS 

1009 REM ************************** 

1010 P3=5 : P4=3 : REM **MAX/MIN LENGTH** 
1020 GOSUB28100 

1030 rem #*convert numeric string to numeric variable** 
1040 p=val<:p*> 

1050 pr i nt: pr i nt: pr i mp : rem **print numeric input** 

1060 END 
2000 REM 
3000 REM 
4000 REM* 
5000 REM 
6000 REM 

28100 REM ********************** 

28102 REM *SUBROUTINE TO INPUT A 

28104 REM *NUMERIC STRING 

28106 REM ********************** 

28108 Pf="" 

28110 REM ***PRINT PROMPT LINE*** 

28112 FORQ=l T0P3: PRINT"-".: : NEXTQ : PR I NT "I ".; 

28 1 1 4 FORQ= 1 T0P3+ 1 : PR I NT " II" ; : NEXTQ 

28116 REM ***GET CHARACTER*** 

28 1 1 8 GET A* •• I F A*= " " G0T028 1 1 8 

28120 REM ***TEST FOR COMMAND KEVS*** 

28 1 22 I F A*=CHR$ < 1 3 > G0T028 1 66 

28 1 24 I F A*= " G0T028 1 36 

28 1 26 I Ffl*OCHR* < 20 > G0T028 1 46 

28128 REM ***DELETE ENTRV*** 

28 1 30 PL=LEN < P* > : FORQ= 1 TOPL : PR I NT " II" ; : NEXT 

28 1 32 G0T028 1 08 

28134 REM ***DELETE LAST CHARACTER*** 

28 1 36 I FP*=" "G0T0281 18 

28138 IFLEN<P*>=1THENP*="" :G0T028142 

28 1 40 P*=LEFT* < P* > LEN < P* > - 1 > 

28142 A*="ll_ir :GOTO28160 

28144 REM ***VALID NUMERIC CHARACTER?*** 

28146 IFfi*=". "THEN28158 

28 1 48 I Ffi*= " - " ANDP$= " " THEN28 1 58 

23 1 50 I Ffl*< " " G0T028 1 1 8 

28 1 52 I Ffl*> " 9 " G0T028 1 1 8 

28154 REM ***ENTRV TOO LONG?*** 

23 1 56 I FLEN < Ft- ) =P3GOT028 1 66 

28158 P*=P*+fl* 

23169 PR I NT A$ .; 

28 1 62 G0T028 118 

28164 REM ***ENTRV TOO SHORT?*** 
28 1 66 I FLEN C P$ > <P4 THENGOT028 1 1 8 
28168 RETURN 
RE ADV. 
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rn 

& 108 LNE$= ,l :^l!ftI!!Ifll«l!I«l!I««««»W^!I««!I«« ,, 

z 110 DIM P*<5> 

= 1000 REM ***************************** 

1001 REM *EX AMPLE OF SUBROUTINE CALL 

1002 REM #TO INPUT AN ADDRESS. 

1009 REM ***************************** 

1010 PR I NT "3" ; 
1020 GOSUB 28300 

1030 REM **PRINT ADDRESS INPUT FROM ARRAV P$<Q>** 

1040 PR I NT M"; 

1050 FOR Q=1T05 

1060 PRINTP*<Q> 

1070 NEXTQ 

1080 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

28300 REM ************************* 

28302 REM *ADDRESS INPUT SUBROUTINE 

28304 REM ************************* 

28306 PRINT")ll«W»»liMi»iii*»ISWDDRESS INPUTS" 

28308 REM ***LOOP FOR 5 ADDRESS LINES*** 

28310 F0RQP=1T05 

28312 REM *** INITIALISE*** 
28314 P$<QP>= H " 

28316 REM ***HOME CURSOR & MOVE DOWN TO LINE START*** 

28313 REM ***THEN INDENT 5 SPACES & PRINT PROMPT LINE*** 
28320 PR I NT ".48"; 

23322 PR I NTLEFT* < LNE$ , 7+QP#2 > ; 
28324 PRINT" 

28326 FORQL= 1 T030 : PR I NT " _" ; : NEXTQL 

28328 FORQL= 1 TO30 : PR I NT " II" ; : NEXTQL 

28330 REM ***GET CHARACTER*** 

28332 GETA* I FA*= " " G0T028332 

28334 REM ***TEST FOR COMMAND KEYS*** 

28336 REM ***IF RETURN + . THEN END ENTRV*** 

28338 I FA*=CHR* < 1 3 ) ANDR I GHT* < P$ < QP > , 1 > = " . " THENQF-5 •• GOTO28404 

28340 REM ***IF , THEN NEXT LINE*** 

28342 I FA$= " , " THEN28396 

28344 REM ***IF CURSOR UP THEN GOTO PREVIOUS LINE*** 
28346 I F A*=CHR* < 1 45 > THEN28372 

2S348 REM ***IF «- THEN DELETE LAST CHARACTER*** 
'~"-;3 c i0 I Ff\$ k= " THEN2ft36^' 

28352 REM ***IF DeCtHEN DELETE CURRENT LINE*** 

28354 I Ffl*OCHR* < 20 > G0T028378 

28356 REM ***DELETE CURRENT LINE*** 

28358 G0Tfi2S'314 

28360 REM ***DELETE LAST CHARACTER*** 

28362 I FP$ ■:: QP ) = " " G0T028332 

28364 I FLEN < P* < QP > > = 1 THENPf < QP > = " " = G0T028368 
28366 P$ < QP > =LEFT* < P* < QP > , LEN < P* < QP > > - 1 > 
28368 A$="ILH" :G0T028392 

28370 REM ***GO BACK TO PREVIOUS LINE*** 
28372 IFQP>1THENQP=QP-1 
28374 G0T028314 
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76 REM ***VRLID CHfiRRCTER INPUT?*** 
28378 IFA*<" "G0T028332 
:'8: -i80 I Ffi$ > " Z " AND A$< "I " GQT028332 
:'S:-:82 REM ***DELETE LEADING SPACES*** 
28384 REM ***CHECK LINE NOT TOO LONG*** 
--■8386 P* QP > =Pf < QP > + A$ 
28388 I FLEN < P* < QP > > >30THEN28332 

-•8390 I FLEFT* < P* < QP > , C' = " " THENP* < QP > =R I GHT$ < P* < QP > , LEN < P* < QP > > - 1 > : G0T028332 
28392 PRINTfl*; -G0T028332 

.-.3:-i94 REM ***IF NOT LAST LINE THEN ADD LAST CHAR & GOTO NEXT*** 

28396 I FQPC5THENPR I NTA$ : P* < QP > =P* OQP > + A* : G0T028484 

28398 REM ***IF LAST LINE JUST ADD*** 

28408 G0T028386 

28402 REM ***NEXT LINE*** 

28404 NEXTQP 

28406 PR INT: rr i NT : PR I NT = PR I NT 

^ft4«ft REM ***ADDRESS CORRECT? VES THEN RETURN*** 
28410 REM ***NO THEN REENTER ADDRESS*** 

hi 2 PRINT" ENTRV CORRECT WWES OR SN10 ?" 
2\.tl4 GET A$: IFA*=""G0T028414 
28416 IFA*="V"THEN28422 
28418 I Ffi$= " N " THEN PR I NT " 3" •■ GGTO28380 
28420 G0T028414 
28422 RETURN 
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1006 REM 

1061 REM *EX AMPLE OF SUBROUTINE CALL 
1002 REM *FOR VES/NO REPLV. 

1009 REM *mwmMMM****MMM* 

1010 GOSUE 28200 

1020 REM **CONDITIGNAL BRANCH ON VALUE OF P** 
1030 ON P GOTO 1500, 1700 
1500 PR I NT "THE REPLV WAS VES" 
1510 END 

1700 PR I NT "THE REPLV WAS NO" 

1710 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

28200 REM 

28202 REM ^SUBROUTINE TO INPUT VES 

28204 REM *NO REPLV 

28206 REM ************************ 

28208 PRINT"Sfr'KS OR 2NS0 

28210 GET A$:IFA$=""GOTQ28210 

28212 I F A$= " V" THENPR I NT " llllllllllirr'ES " : P=l : G0Tn28218 

28214 I F A$= " N " THENPR I NT " IIIIIIIIIIIMO " : P=2 GnT02«2 1 8 

23216 G0T028210 ' 
28218 RETURN 
RE ADV. 
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REDUCING INPUT ERRORS 



Data input errors are the primary cause of most 
so-called computer errors, such as the million pound 
electricity bill. Procedures can be adopted which greatly 
reduce the chance of incorrect numerical entry. The commonest 
cause of of numerical data entry error is the 
misinterpretation of handwriting. This is overcome by 
adopting a standard method of writing. The letter "I" must be 
'topped and tailed' to avoid its being mistaken for a numeric 
"1", zero is crossed to differentiate it from the letter "O", 
"Z" is crossed to avoid being mistaken for a "2" and "7" may 
also be crossed so that it can not be mis-read for a "1". 

Mis-reading of handwriting is only one source of errors 
in numeric data entry. The types of error can be classified 
as: 

Insertion - an extra character is added to a data item, 
the number 26195 may gain a 1 to become 261 195. 

Omission - a character is left out of a data item, the 
number 3 1 2263 may lose a 2 to become 3 1263. 

Transcription - this is mis-reading the data, the 7 in 
27620 may be misread as a 1 causing the number to become 
21620. 

Transposition - characters change position, 28140 may 
become 21840. 

The final result of any of these errors is not only a 
corruption of data but in practice could mean a customer 
receiving the wrong goods or being billed incorrectly. 

To overcome these errors one must try to ensure when 
writing a program that data will be read, written and stored 
accurately. On way of detecting errors in numerical data 
items is the use of a check digit. A check digit is produced 
by performing a calculation on the number and appending the 
result to the data item. Whenever a number is input to the 
computer the check digit is recalculated and checked against 
the input check digit. If there is an error then the two 
check digits will not match and the input can be rejected. 
The incorporation of check digits is particularly useful with 
part or account numbers. 

There are many ways of calculating check digits, the 
methods used to ensure a 100% error detection rate usually 
involve a weighting technique. Such a method is used in the 
following subroutine, where each digit in the number is 
weighted, starting with the least significant digit the 
weight being incremented by one. Using the part number 72946 
as an example and calculating the check digit for it thus: 



7 2 9 4 6 



L 



x2 
x3 
x4 
x5 
x6 



12 
12 
36 
10 
42 



+ 112 



This total is then divided by 11 and the remainder noted: 

112/11 = 10 remainder 2 

The remainder is subtracted from 11 giving the check digit 9. 
Using this algorithm, check digits will be produced with a 
range between and 11. Since most numbers using check digits 
will be of fixed length we can ensure that the number always 
has two digits simply by adding 10 to the check digit. 

Parameters used: 

P$ - numeric input for which the check digit is to be 
calculated. 

PC$ - check digit calculated from the value in P$. 

Notes: line 2 5014 is used to detect negative numbers, these 
then have check digits in the range 50-61, this line can be 
omitted if no negative numbers are used. When using 
f actional numbers note that the check digit calculation will 
not differentiate between fractions smaller than .5. To 
overcome this the input variable should be multiplied by say 
100 to give a two decimal place accuracy. 



c 
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1000 rem *************************** E 

1001 REM *EX AMPLE OF SUBROUTINE CALL 

1002 REM *TO CREATE CHECK DIGIT FOP 

1003 REM *NUMBER. 

1009 REM *************************** 

1010 INPUT" INPUT NUMBER" ;p$ 
1020 GOSUB25000 

1038 PR I NT -PR I NT: PR I NT "CHECK DIGIT IS"; PC* 

1040 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

25008 REM **************************** 
25802 REM ^SUBROUTINE TO CREATE A CHECK 
25004 REM *DIGIT FOR VALUE IN P$ 
25086 REM **************************** 

25008 REM **FOR INCREASED RESOLUTION MULTIPLY P$ BV 169** 
250 10 fl= 1 60* VOL < P$ > ■■ BD= 1 

25012 REM **IF NEGATIVE NUMBER THEN ADD 58 TO CHECK DIGIT** 

25014 IFLEFT$<P*, 1 >="-"THENA=VAL<RIGHT*<P*,LEN<P$>-l>> :BB=58 

25016 A1=0 

25018 A2=2 

25O20 B=INT<A/1@) 

25022 A1=A1 + CA-'::B*10>>*A2 

25024 IFB=0THEN25032 

25026 A=B 

25028 A2=A2+1 

25030 GOTO25020 

25032 AC=Al-c;iNT<Al/ll>*ll> 

25034 AC=11-AC 

25836 AC=INKAC>+BB 

25038 REM **CHECK DIGIT FOR VALUE IN P* IS PC*** 
25040 PC*=STR*<flC) 
25042 RETURN 
RE ADV. 
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DATE INPUT VERIFICATION AND STORAGE 



Dates comprise a special class of input which is always 
prone to operator error unless validation techniques are 
used. An example is entering the date as the 31st when there 
are only 30 days in that month. The date validation program 
must be able to determine how many days there are in a given 
month and whether it is a leap year or not. Another problem 
is that there are many different ways of inputing a date, all 
being equally valid. 

For calculation purposes, and for compactness when 
stored in a data file, dates can be converted into a special 
numeric form representing the number of days since 1/1/72. 
This allows comparison of dates and calculation of date 
differences. 



DATEINPUT 

This subroutine will validate a date input as variable P$ 
with the format DDMMYY(ie: 2nd Feb 80 input as 020280). Lines 
25120 to 25 1 24 dissect the date string to give simple numeric 
variables for day, month and year. Line 25130 checks that 
these values are within certain general limits, if not then 
error flag variable P6 is set. Line 25132 calculates if the 
current year is a leap year, and line 25134 checks that there 
are not too many days in the month using AL$ in a leap year 
and AM$ in an ordinary year. 

Parameters used: 

P$ - date input string in format DDMMYY with a length of 6 
characters. 

P6 - error flag if date in P$ is invalid. 
PD - numerical days in date. 
PM - numerical month in date. 
PY - numerical year in date. 



DATEIN2 



This subroutine is a more sophisticated and general purpose 
date validation subroutine. The date is input as string P$ 
but can have a variable format - DDMMYY, DD-MM-YY, DD/MM/YY, 
DD-MMM-YY, or D-MMM, (e.g. 020280, 02-02-80, 02/02/80, 
02-FEB-80, or 2-FEB). If no year is input with the format 
D-MMM then the year stored in the program as PY$ in line 
25508 is automatically inserted. Lines 25514 to 25534 
determine which format has been used and convert that format 
to a standard internal format used by the subroutine for its 
validation procedures. If the input contains an alpha month 



then lines 25540 to 25546 check the three character alpha 
month against valid alpha months stored as AM$ to produce a 
numerical month value. If the input alpha month is invalid 
then error flag P is set to 1 and the subroutine exited. 
Lines 25552 to 25556 dissect the internal date string to 
produce numerical values for day month and year. The date 
validation is done by lines 25562 to 25568. Any errors will 
set the error flag P to 1 and exit from the subroutine. 



Parameters used: 



PS - date input string, length can be between 5 and 9 
characters, format is variable. 

P - error flag set to 1 if there is an error in the input 
variable P$. 

PD - numerical days in date. 
PM - numerical month in date. 
PY - numerical year in date. 



DAYDATE1 



This subroutine has not only the function of validating a 
date input it also converts the input format into an output 
format. The format used for input variable P$ is either DDMMM 
or DDMMMYY (e.g. 2FEB or 2FEB80). P$ for this example is 
output by the subroutine as SATURDAY 2ND FEBRUARY 1980. Any 
error in the input causes the error flag P6 to be set to 1 
and the subroutine exited. Line 25418 checks that the number 
of days in the date is within allowed limits. The presence of 
a year in the input is detected by lines 25418-25420. If 
there is no year in the input date then the default year 
stored as PY in line 25410 is used. Lines 25426 to 25430 
convert the alpha month in the input into a numerical value. 
If there is an error in the input then P6 is set to 1 and the 
routine exits. The day of the week is calculated by lines 
25436-25440. Lines 25446-25456 construct the output string 



Parameters used: 



P$ - input string from 4 to 7 characters long. 

P$ - output string. 

PD - numerical days in date. 

PM - numerical month in date. 

PY - numerical year in date. 

P6 - error flag, error =1. 



DATECONVERT 



The function of this subroutine is to convert a date input as 
F$ with the format DDMMYY into a numeric value representing 
the number of days between the input date and 1/1/72. Lines 
25214-25218 dissect P$ to give numeric days, months, and 
years in the date. This section of the subroutine could be 
omited if these values already exist. The output is given as 
both numeric and string variables PN and PN$. 

Parameters used: 

P$ - input string with date in format DDMMYY. 

PN - numeric days since 1/1/72. 

PN$- string variable equivalent of PN. 

DATERESTORE 



The numeric internal date format of days since 1/1/72 is 
converted back into a normal format DD/MM/YY by this 
subroutine. The input parameter is PN$. Change line 25316 to 
AD = PN if input parameter is a numeric variable. The output 
parameter is P$. 

Parameters used: 



PN$ - input string of days between date and 1/1/72. 
P$ - output string with date in format DD/MM/YY. 



D 

z 
tu 
<- 
< 

1006 REM*************************** 9 

1001 REM*EXAMPLE OF SUBROUTINE CALL 

1002 REM*TO INPUT AND VOL I DATE DATE. 

1 009 REM*************************** 

1010 INPUT "INPUT A DATE -DDMMVV - M ;P* 
1020 GOSUE25100 

1030 REM ***IF INVALID DATE REENTER*** 
1040 IFP6=1THEN GOTO 10 10 

1 050 PR I NT : PR I NT : PR INT" D AV- " ; PD ; " MONTH- " ; PM ; " VEAR- 19"; P V 

1068 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

25100 REM *************************** 
25102 REM *DATE INPUT AND VALIDATION 
25104 REM *DATE INPUT IN FORMAT -DDMMVV 
25106 REM *AS VARIABLE Pt. 
25108 REM *************************** 
25110 AM$= " 3 1 283 1 363 1 303 1 3 1 303 1 303 1 " 
25 112 AL*= " 3 1 293 1 303 1 303 1 3 1 303 1 303 1 " 
25114 P6=0 

25116 REM ***DISSECT INPUT STRING*** 
25118 REM ***TO GIVE NUMERIC DATES*** 
25 1 20 PD=VAL < LEFT* < P* , 2 > > 
25122 PM= V AL < M I D* < P* , 3 , 2 > > 
25 1 24 P V= V AL < R I GHT* < P* , 2 > > 

25126 REM ***CHECK THAT THE DATE INPUT IS WITHIN PARAMETERS*** 

25 1 28 REM 

25 1 30 I FPM< 1 ORPM> 1 2ORPV<70ORPV>85ORPD<0 1 0RPD>3 1 THENP6= 1 
25 1 32 AR= 1 900+PV : IFINT( AR/4 > =AR/4THENAM*=AL$ 
25 1 34 I FPD> VAL C M I D* < AM* , PM*2- 1 , 2 > ) THENP6= 1 
25136 RETURN 
RE ADV. 
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1000 REM **************************** 

1001 REM *EXAMPLE OF SUBROUTINE f:ALL 

1002 REM *T0 INPUT AND VOL I DATE A DATE 

1009 REM **************************** ' 

1010 INPUT "INPUT A DATE -";p$ 
1020 GOSUB25500 

1030 REM **IF INVALID THEN REENTER** 
1040 IFP=1THENGOTO1O10 th*# 

1060 ^ NT:pRINT:pRINT "DftV-»;PD;» MONTH-" ;PM;" VEAR- 19".;PV 

2000 REM 
3000 REM 
4000 REM 
5000 REM 
6000 REM 

25500 REM**************************** 
L'55w2 REM*DATE INPUT AND VALIDATION 
25504 REM**************************** 

25510 REM ***DETERMINE FORMAT OF *** 
25512 REM ***DATE INPUT*** 
""3514 AL=LEN<P*) 



:,Er 5; 

ciDo" 1 6 I FAL<5THENP= 1 : RETI IRN 
25518 IFMID*<P$,4, 1»="A"THEN25530 



I S!" = KS ,VflL <MIW<P *'3' 1 > >=0THENP*=P*+PV* : G0TQ2555* 
^55^ IFAL=5ORAL=?THENP*="0"+P$ 
25524 IFAL>6THEN25552 

lil ^sS^ 
25530 IFAL<7THENP*=P$+PY* 
25532 IFAL=3THENP*="0"+p$ 
25534 IFAL=5THENP$="0"+pf 
SSX-SIU ***J E TERMINE MONTH NUMBER*** 

REM *** FuR fl LPHA MONTH INPUT*** 
k'5540 A0*=M IB$<P$, 4, 3 > 
25542 F0RPM=1T012 
5544 I FA0*=M I D* < AM* , 3*PM-2 , 3 > THEN25554 
5546 NEXTPM : P=l ' RETURN 
f|543 REM ***DISSECT INPUT STRING*** 
^5550 REM ***T0 GIVE NUMERIC DATES*** 
c:'5552 PM= VAL < M I D$ ( P* , 4 . 2 "> > 
25554 PD= VAL C LEFT* C P* . 2 r> ' 
25556 PV=VAL<RIGHT*(:P$.2)> 
S 5 -? 512 ***CHECK THAT DATE INPUT*** 

SX? ?!5r ?J* IS WITHIN PflRAMETERS*** 

^•556c:' I FPD=0ORPM=0ORPV=0THENP= 1 ■ RETi IRN 

25564 IFPD>310RPM>12THENP=1 : RETURN 

^5566 IFPD-29>VALCMID$< "202121221212" . PM . 1 ^THFHP-i • pfti ich 

^5568 I FPM=2ANDPD=29AND < P VAND3 K>0THENP= 1 ' >THENF " 1 RETURN 

*'5570 RETURN 
RE ADV. 
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209 D I MAM* < 12) .• AI*( 1 2 ) , AW* < 7 ) 

202 AW* < > = " TUESDAY " : AW* < 1 > = " WEDENSDflV " 
204 AW* < 2 ) = " THURSDflV " •• AW* < 3 ) = " FR I DAY " 
206 AW* < 4 > = " SRTURDfl V " •' AW* < 5 ) = " SUNDflV " 
208 AW*<6)="M0NDAV" 

2 1 AM* a ) = " JANUARY " ■ AM* C 2 ) = " FEBRUARY " 
2 1 2 AM* < 3 ) = " MARCH " : AM* < 4 ) = " APR I L " 

2 1 4 AM* i 5 ) = " MAY " AM* C 6 ) = " JUNE " •' AM*<7)=" JULY " 
2 1 6 AM* C 8 ) = " AUGUST " : AM* < 9 ) = " SEPTEMBER " 
2 1 8 AM* C 10)= " OCTOBER " : AM* < 11)= " NOVEMBER " 
220 AM* < 12) = " DECEMBER " 

222 AI*c: 1 )="JAN" •■ AI*<2)="FEB" = AI*<3) = "MAR" 

224 A I * < 4 ) = " APR " : A I * < 5 ) = " MAY " 

226 AI*<6)="JUN" :AI*<7)="JIJL" AI*c:8)="AUG" 

228 A I * < 9 ) = " SEPT " •' A I * a ) = " OCT " 

230 AI*ai) = "NOV" : AI*<12)="BEC" 

300 REM 

400 REM 

500 REM 

600 REM 

700 REM 

1080 rem **m*mMmM*m**MM******* 

1081 REM ^EXAMPLE OF SUBROUTINE CALL 
1002 REM *TO INPUT BATE AND PRINT DATE 
1083 REM *IN FULL FORM. 

1009 REM ************•*.***+>:*.*'********* 

1010 INPUT "INPUT A DATE - ";P* 
1020 GOSUB25400 

1030 REM **IF INVALID THEN REENTER** 
1048 IFP6=1THEN GOTO 1010 
1 050 PR I NT : PR I NT : PR I NTP* 

1 060 PR INT: pr i nt : PR I NT " DAY- " .; PD ; " MONTH- " ; PM 

1070 END 

2000 REM 

3080 REM 

4008 REM 

5000 REM 

6088 REM 

25400 REM******************************* 

25402 REM*SUBROUT I NE TO INPUT AND VALIDATE 
25484 REM* THE DATE THEN CALCULATE THE DAY 
25406 REM*OF THE WEEK 

25488 REM******************************* 

254 1 Q AM=0 : AZ=0 : AK=0 : P6=0 : PV= 1 ^86 
25412 REM ***DISSECT AND VALIDATE*** 
25414 REM ***DATE INPUT STRING*** 
254 1 6 HD= V AL ( P* ) : AL=LEN < P* ) 
254 1 8 I FflD< 1 0RAD>3 1 THENP6= 1 : G0T025458 
25428 A>:*=R I GHT* (. P* , 2 ) : A Y= VAL ( AM* ) 
25422 I FH V>0THENAY=AV-PV+ 1 900 
25424 AK=3+ < AD< 1 ) : AM*=M I D* <. P* , AX , 3 ) 
25426 F0RQ=1T012 

25428 I FAM*=A I * < Q ) THENAM=Q : G0T025436 
25438 NEXTQ •' P6=l ■' G0T025458 
25432 REM ***CALCULATE DAY OF WEEK*** 
25434 REM ***FROM NUMERIC DATE VARIABLES*** 
25436 Q= 1 2 : AS=AD = AX=AY+PY : AS=AS+AX*365 



25438 I FfiM=>3THENfiS=fiS- INK fiM* . 4+2. 3> : flX*flX+l 
25449 flS=flS+INT<:flM*31 + CflX-l >/4> : flW=flS-INT<fiS/7>*? 
25442 REM ***CONVERT DATE VARIABLES*** 
25444 REM ***INTO OUTPUT STRING*** 
25446 RT*=".TH. " 

25448 IFfiIi=10RflD=210RfiD=31THENfiTt=" . ST. " 
25458 I FAD=2QRAD=22THENAT$= " . ND . " 
25452 I FRD=3GRAIi=23THENAT$= " . RD . " 

25454 P*=" "+AW$t:AW>+STR*<AB>+AT*+" "+AM$<AM>+STR$<AV+PY> 
25456 PB=fiD:PM=flM PV=flV+PV 
25458 RETURN 
READV. 
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1800 REM **************************** £ 

1001 REM *EXAMPLE OF SUBROUTINE CALL TO < 

1002 REM *COHVERT A DATE INTO INTERNAL f 

1003 REM *FORMAT 

1009 REM **************************** 

1010 INPUT" INPUT DATE - DDMMVV -"JP* 

i 820 GOSUB25200 

1030 PR I NT: PR INT -PR I NT "INTERNAL FORMAT DATE IS ",PN$ 

1040 END 

2800 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

25200 REM **************************** 

25202 REM *DATE CONVERSION TO INTERNAL 

25204 REM *FORMAT OF DAYS SINCE 1/1/72 

25206 REM * INPUT IN P* AS < DDMMVV >, 

25208 REM *OUTPUT IN PN*. 

25210 REM **************************** 

252 12 Ai*=" 08003 1 059090 1 20 15118121 2243273304334 " 

25214 A1=VAL'::LEFT*<P*,2>> 

25216 A2= VAL < M I D* ( P$ , 3 , 2 > > 

25218 A3=VAL'::RIuHT*«::P*,2>) 

25220 AB=A 1 + ( ' A3-72 > *365+ 1 NT ( ( A3-69 > /4 > + VAL < M I B* < A 1 * , 3*A2-2 , 3 ) > 
25222 IFA2>2AND<: 1900+A3>/4=INT< '■ 1900+A3..'/4':'THENAD=AD+1 
25224 F'N=AD PN*=STR* <:: PN > 
25226 RETURN 
READ V . 



25200 REM **************************** 

25202 REM *DATE CONVERSION TO INTERNAL cn 

25294 REM *FORMAT OF DflVS SINCE 1/1/72 t 

i'5206 REM * INPUT AS VARIABLES PD,PM,PV uj 

25208 RhM *(DAV. MONTH.. VR> OUTPUT IN PN*. Z 

25219 REM **************************** C 

252 1 d Hlf=" 0O003 1 959090 1 28 15118121 2243273364334 " £j 

2522 y AI~P1> ..: PV-72 > #365+ I NT < PV-69 > /4 +VAL CM I D* < Hi * , 3*PM-2, 3 ) ) £ 
c:5c L 2 I !- K^i;:-2AND < 1 900+PV > /4= I NT < < 1 900+PV /4 '> THENAH=AD+ 1 c 

252 1 : 4 h , n=ad-pn*=stp*<:fn> 

25226 PL/'^PN 
RE ADV. 
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O 100fi REM #*####*#####*****#***#**###** 
2 1601 REM #EXflMPLE OF SUBROUTINE CALL TO 
= 1002 REM ^CONVERT INTERNAL FORMAT DATE 

1003 REM *INTO STANDARD DATE FQRMAT-DDMMVV. 

1009 REM ***************************** 

1010 INPUT "INTERNAL FORMAT DATE EG : 3207 ";PN* 
1020 GOSUB25300 

1030 PRINT PR I NT: PR I NT "CORRESPONDING DATE IS - ";P* 

1640 END 

2000 REM 

3006 REM 

4000 REM 

5000 REM 

6000 REM 

25300 REM **************************** 
25302 REM *DATE RECONSTRUCTION FROM 
25304 REM * INTERNAL FORMAT INPUT AS PN* 
25306 REM *DATE OUTPUT AS P* IN FORM 
25308 REM *<:DD/MM/'t"t'> . 

25310 REM **************************** 

253 12 A 1 t = " 00003 1 059090 1 20 1 5 1 1 8 1 2 1 2243273304334 " 

25314 A2=34 

25316 AD=VAL<PN$> 

25318 A3=INT<AD/365> 

25320 A 1 = AD- < A3*365 > - 1 NT < < A3+3 > /4 > 

25322 I FA 1 >0THEN25328 

25324 A3= A3- 1 = A 1 =A 1 +365 

25326 I F I NT i A3/4 > =A3/4THENA 1 =A 1 + 1 

25328 A5=0 : 1 F I NT < A3/4 > =A3/4THENA5= 1 

25330 A4=V AL < M I D* i A 1 % , A2 , 3 > > 

25332 I FA4>3 1 THENA4=A4+A5 

25334 I FA 1 =< A4THENA2=A2-3 : GOTO25330 

25336 A 1 *=STR* < A 1 -A4 > + " / " 

25338 A2$=STR* < < A2+2 > /3 > + " / " 

25340 P*=R I GHT$ < " " +R I GHT* < A 1 $ , LEN < A 1 * > - 1 > , 3 > 

25342 P*=P*+R I GHT$ < " " +R I GHT$ C A2* , LEN < A2* > - 1 > , 3 > +R I GHT* < STR* < A3+72 
25344 RETURN 
READV. 
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SCREEN FORMAT AND DISPLAY 



The subroutines in this section are all designed to control 
the way data is output to the screen. 



CURSORCONT 



This cursor control subroutine can be the basis of any screen 
data output procedure. The subroutine places the cursor at a 
location on the screen defined by the co-ordinates of line 
and column numbers. The position of the cursor is then the 
starting position for subsequent printing. 
Lines 29810, 29818 and 29820 are used to remove any print on 
the screen for 40 characters in front of the cursor. This 
feature is useful if the cursor is at the beginning of a line 
since it will delete all the existing contents of that line. 
If not required then these lines of the subroutine can be 
omitted. 



Parameters used: 



COL - this value should be set to the column number (between 
1 and 40) at which the cursor is to be placed. 
LNE - this value should be set to the line number (between 1 
and 25) on which the cursor is to be placed. 



WARNING 



When an error situation arises during a program, because of 
operator error, data file read or write errors, etc; this 
subroutine can be used to signal the fact to the operator. 
The subroutine calls the subroutine Cursorcont in line 30106 
to place the cursor at the beginning of line 25 ( the bottom 
line of the screen). A flashing message "WARNING" is 
displayed at the beginning of the line (Note: 
AW = LOG(m)generates a delay between flashes). A message stored 
as ME $ is then displayed on the rest of the line. The 
subroutine then halts until a key is pressed, upon which line 
25 on the screen is erased and the subroutine exits. 



Parameters used: 



ME$ - message to be displayed on line 25 indicating fault or 
error type, maximum length 32 characters. 
SP$ - string consisting of 40 spaces. 



BORDER 



This little subroutine draws a border around the screen (the 
character used for the border is the graphics &, but could be 
any character). No parameters are passed by this subroutine. 



BORDER 2 



This subroutine also draws a border around the screen but in 
this case using a thin line. The screen is given a page 
heading in reverse field characters in the centre of line 1. 



Parameters used: 



P$ - string for page heading, maximum length 40 characters. 
SP$ - string of 40 spaces. 



DIGIT 



One of the problems in displaying numerical values on the 
screen in tabular form is that they are naturally left hand 
justified and, unless thev are integer values, can have a 
variable number of decimal places. This gives rise to a verv 
ragged display, to look neat the numbers should be truncated 
to a set number of decimal places, usually two, and right 
hand justified so that the decimal points are aligned in 
straight columns. This subroutine performs both these 
functions. Lines 27026 and 27028 round the fractional part of 
the number up or down to two decimal places. Then lines 27036 
to 2 7054 truncate the fractional part of the string 
representation of the number to two decimal places, or add 
.00 to the number if it is an integer. All numbers are now in 
string format with the fractional component of two decimal 
places, the least significant digit of which has been rounded 
up or down, depending on the value of the number in the 
fractional third decimal place of the original number. Line 
27056 adds spaces to the front of the numerical string so 
that all numbers output from the subroutine as variable P$ 
have the same length. This is set by input parameter P. 



Parameters used: 

P$ - input numerical string. 

P - input parameter for length of output numerical string. 



P$ - output numerical string length P characters set to two 

decimal places. 

SP$- string of 40 spaces. 

DISPLAYSRC and BDISP 



niSPLAYSRC is a machine code program to perform various 
screen display functions, BDISP is a Basic loader version of 
niSPLAYSRC. This subroutine which is located in the top 2K of 
memorv in a 32K machine is designed to perform several 
functions. First to draw horizontal or vertical lines on the 
screen of any length and starting at any position, using any 
valid character to construct the line. Secondly using the 
first two functions to draw a border around the screen and 
thirdlv to reverse field a section of the screen or even the 
whole screen. Machine code is used to perform these functions 
because its higher speed of operation gives an almost 
instantaneous display. All these functions except the border 
require parameters to be poked into reserved memory 
locations. These parameters control starting position, 
character used, line length, and, with the reverse field 
k, the block di-mensions. The starting position is the 
location in screen memory of the top right hand character of 
the line. This screen location is stored as two bytes, most 
signif icant(VSB) and least signif icant(LSB). These two 
location values must be calculated before a line is drawn or 
a block reversed. Screen lines should be numbered from to 
24 and columns from 1 to 40. The screen memory location can 
then be calculated by multiplying the line number of the 
starting location by 40 and adding to it the column number 
plus 32768, the result will be a value between 32768 and 
33767. To obtain the M SB and LSB values for this number 
divide it by 256. The integer part of the result is the MSB 
value, the remainder is the LSB value. Thus if the starting 
position is line 4 column 10 the ca'-'M a tion is: 

H*U0 +10+32768 = 32938 
32938/256 = 128 remainder 170 

the \<SR value is 128, LSB value 170 

To dra*-' a horizontal line the following Basic commands are 
required: 

POKE 84, Start location LSB 

POKE 85, Start location MSB 

POKE 87, Line length 

POKE 88, ASCII code for character used 
Sv^(31232) 



To draw a vertical line: 

POKE 84, Start location LSB 

POKE 85, Start position MSB 

POKE 87, Line length 

POKE 88, ASCII character code 

SYS(31246) 

To draw a border 
SYS(31283) 

To reverse field a block of the screen: 
POKE 84, Column number of start 
POKE 85, 128 

POKE 86, Line number of start 
POKE 87, Number of lines in block 
POKE 88, Number of columns in block 
SYS(31358) 



1000 REM *************************** 

iml REM *EXAMPLE OF SUBROUTINE CALL 
1002 REM *TO DISPLflV WARNING MESSAGE 
100:-: REM *THIS SUBROUTINE ALSO CALLS 
1604 REM *THE CURSOR CONTROL SUBROUTINE 
1005 REM *CURSORCONT AT 29880. 
1009 REM *************************** 
1018 PR INT" 3" 

1028 ME*=" EXAMPLE OF WARNING MESSAGE" 

1030 GOSUB 30100 

1040 PR I NT "SI" 

1058 END 

2080 REM 

3800 REM 

4800 REM 

5880 ,REM 

6088 REM 

29800 REM *************************** 

29802 REM *r:UPSOR CONTROL SUBROUTINE 

29804 REM *************************** 

29ft0* COL*= " »Mi»i »»»»»»•»»»»»»»«" 

2980A LNE*= " UMHUHUHI^^ 

29812 PR I NT" 3"; 

29ft 1 4 I FCOL> 1 THENPR I NTLEFT* < COL* > COL- 1 > ; 

29ft 1 f, I FLNE> 1 THENPR I NTLEFT* < LNE* , LNE- 1 > ; 

29822 RETURN 

29980 REM 

29910 REM 

29920 REM 

29930 REM 

38100 REM ******************** 
38102 REM *WARNING MESSAGE 
30104 REM ******************** 
38 1 0k f:fiL= 1 •' LNE=24 : GOSUE29800 
30108 Af="IIIIIIH" 
30110 FORA=1TO30 

30112 flW=LOG<ir> = PRINT" 3WRRNING"fl*.: 
30 1 1 4 flW=LOG < it > : PR I NT " S-JARN I NG " A* ; 
30116 NEXT ■■ PRINT" SWftRN I NG -"LEFT$':.ME$+SP* , 31 > • 
30 1 1 8 GETfl* •' I FA*= " " THEN30 1 1 8 
30120 C0L=1 : LNE=24 ^ GOSUE29800 
38122 PRINTSP*; 
30124 RETURN 
RE ADV. 



a 

a 
o 

2^08 REM *************************** 

2*902 REM *SUBROUTINE TO DRAW A BORDER 

29904 REM *ARROUNB THE SCREEN. 

29906 REM *************************** 

29908 PR I NT " • fl$= " SS" FOR I = 1 T025 : A*= A$+ " W" : NEXT 

299 1 B*= " " FOR I = 1 T040 : B*=B$+ " W ■ NEXT 

299 1 2 FOR I = 1 TO20 •■ PR I NT "1" TAB < 20- 1 > LEFT* < B$ , 2* I > = NEXT 

299 1 4 PR I NT " 1" ; •• FOR I = 1 T02 1 : PR I NT " 1" SPC < 38 ) " *" ; = NEXT : PRINT 

299 1 6 PR INT" W SPC < 38 > " Ml" ; 

299 1 8 FOR I =0TO 1 9 : PR I NT " 1" SPC < I > " W' SPC < 38- 1 *2 > " W ■ NEXT 
29920 RETURN 
RERBV. 



190 S 

1000 
1001 

1002 
1 003 
1009 
1010 
1 020 
1 030 
1040 
1050 
2000 
3000 
4000 
— 5000 
6000 

~ 29900 
29982 
29984 
2998b 
29988 
29918 
29912 
29914 
29916 
29918 
29928 
29922 
29924 
29926 
29928 

READY. 



P$=« 

REM **************************** 

REM *EXAMPLE OF SUBROUTINE CALL 
REM *TO DRAW BORDER WITH SCREEN 
REM SHEADING. 

REM **************************** 

PR I NT "3"; 

P*= " EXAMPLE " ■ REM **HEADING** 
GOSUB 29988 

PR I NT " M««i!l«H«fl»»»iM»*»ITEXT ************* 11 

END 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

fl=LEN<P$> 
fll*=LEFT*- 
PRINT":!"; 
PRINTflU; 

PRINT" 

F0RX=32858T0336 1 8STEP40 



DC 
UJ 
Q 
D£ 
O 
CO 



♦SUBROUTINE TO DRAW BORDER 
*ARROUND THE SCREEN WITH A 
♦REVERSE FIELD PAGE HEADING 
*TRANSFERED AS P* 



: fll=<40-fl>/2 

:sp$, Al> 

PRINT" S"P$"B" 



POKEX, 101 
FORX=32886TO33686STEP40 : POKEX, 181 

PR I NT "3" ; : RETURN 



NEXTX 
NEXTX 
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100 SP#=" 

1000 REM ***************************** 

1001 REM *EXAMPLE OF SUBROUTINE CALL 

1002 REM *TO DISPLflV FORMATTED NUMBERS 

1009 REM ***************************** 

1010 INPUT" INPUT 5 NUMBERS - " ; A$<1 > , A$<2> , A* <3> , A*<4> , A$<5 
1 020 PR I NT : PR I NT • PR I NT 

1030 F-12 
1040 F0RQ=1T05 
1050 P$=A*<Q> 
1060 GOSUB27000 
1070 PRINTP* 
1080 NEXTQ 
1030 END 
2000 REM 
3000 REM 
4000 REM 
5000 REM 
6000 REM 

27000 REM***************************** 

27002 REM*SUBRGUT I NE TO ROUND NUMBERS 
27004 REM*TO TWO DECIMAL PLACES FIND 
27006 REM*PAD WITH SPACES TO RIGHT 
27008 REM* JUSTIFY COLUMNS. NUMBER INPUT 
27010 REM* AND OUTPUT AS P$, OUTPUT 
27012 REM*LENGTH P CHARACTERS. 
270 1 4 REM***************************** 
27016 A*="" :A1$="" ^2*="" 
27018 AN=VAL(P$> 
27020 REM 

27022 REM ***ROUND TO 2 PLACES*** 
27024 REM 

27026 ai=-<:int<an:>-an> 

27028 a 1 =sgn < a 1 > * i nt < abs < a 1 * 1 00 > + . 5 > / 1 oo 

27030 REM 

27032 REM ***FORMAT NUMBER*** 

27034 REM 

27036 A*=STR*<Ai::' 

27038 I F A 1 < . 1 THENA*= " . 00 " 

27040 I FLEN < A* > =4THEN27052 

27042 I FLEN < A* > >4THENA$=LEFT$ < A* , 4 > 

27044 I FLEN < A$ > <4THENA$=A$+ " O " 

27046 REM 

27048 REM ***JUSTIFV*** 
2705O REM 

27052 A*=R I GHT$ < A$ , 3 > 
27054 A*=STR$ (INT < AN > > +A* 
27056 P$=R I GHT* < SP*+fl* , P > 
27058 RETURN 
READV. 



D I SPL A VSRC PAGE 086 1 

L I NE# LOC CODE LINE 



0001 


0000 






0002 


8808 






0003 


8000 






0004 


0000 






0005 


0000 






0006 


0000 






0007 


0000 






0008 


0000 






0009 


8000 






0010 


0000 






0011 


0000 






0012 


0000 






0013 


0000 






0014 


0000 






0015 


0000 






0016 


0800 






0017 


0000 






00 IS 


7fl00 






0019 


7A00 






0020 


7A00 






002 1 


7A88 






0022 


7000 








7R00 






0024 


7A80 






0025 


7fl00 






0026 


7A00 


98 




0027 


7R0 1 


48 




0028 


71=102 


fl4 


57 


0029 


7fl04 


H5 


JO 


0030 


71=106 


91 


54 


0031 


7fl08 


88 




0032 


7H09 


D8 


F9 


0033 


7A0B 


68 




0034 


7H0C 


A8 




0035 


7H0D 


60 




0036 


7A8E 






0037 


7R8E 






0038 


7fl8E 






8039 


7A8E 






8848 


7(=)8E 






884 1 


7FI8E 






8842 


7A8E 






8043 


7A8E 


98 




0044 


7fl0F 


48 




0045 


7A18 


A4 


57 


8046 


7A12 


A2 


00 


8847 


7A14 


fl5 


58 


8848 


7A16 


81 


54 


8849 


7fll8 


20 


21 7fl 


0050 


7fllB 


88 




0051 


7l=l 1C 


10 


F6 


0052 


7filE 


68 




0053 


7A1F 


fl8 




0854 


7A28 


60 




0055 


7A21 







.; **************** 

;*SCREEN DISPLAV 

.^SUBROUTINES 

#5/4/80 
; **************** 



STARTL=*54 
STARTH=*55 
TEMPI =$56 
TEMP2=*57 
TEMP3=$58 



BEGIN=#7A88 

*=BEGIN 

; HOR I ZONTAL LINE DRAW S/R 

DRAW HORIZONTAL LINE 

LENGTH TEMP2 USING 
; CHARACTER WITH ASCII 
.; NUMERIC VALUE IN TEMPS 

HORIZ TVA 
PHA 

LBV TEMP 2 
NEXTH LDA TEMPS 

STA <STARTL>,V 
DEV 

BNE NEXTH 
PLA 
TAV 
RTS 

.. VERTICAL LINE DRAWING S/R 

; VERTICAL LINE LENGTH TEMP 
.■' CHARACTER ASCII NUMERIC 
; VALUE IN TEMPS 

VERT TVA 
PHA 

LBV TEMP2 
LDX #$@0 
NEXTV LHA TEMPS 

STA <STARTL,X> 
JSR NEXTL 
DEV 

BPL NEXTV 
PLA 
TAV 
RTS 
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106 REM *************************** 

101 REM *BflSIC LOADER FOR MACHINE 

102 REM *CODE PROGRAM DISPLAV. 

109 REM *************************** 

110 DATA31232 

1 20 DAT A98 , 48 , A4 , 57 , A5 , 58 , 9 1 , 54 , 88 , DO , F9 , 68 , A8 , 68 
1 38 DATA98 , 48 , A4 , 5? , A2 , 80 , A5 , 58 ,81, 54 , 28 , 2 1 , 7 A , 88 , 1 , F6 , 68 , AS , 
1 40 DATA98 , 48 , 1 8 , A9 , 28 , 65 , 54 , 85 , 54 , A9 , 88 , 65 , 55 , 85 , 55 , 68 , Ay , foO 
158 DATA48,98,48,8A,43 

168 DATAA9, A0, 85, 58, A9, FF, 85, 54, A9, 7F, 85, 55, A9, 28, 85, 57, 28, 80, 

1 70 DAT AA9 , BF, 85,54, A9, 83, 85 , 55 , A9 , 28 , 85 , 57 , 20 , 88 , 7 A 

1 88 DATAA9 , 27, 85, 54, A9, 80, 85, 55, A9, 17, 85, 57, 20, 8E, 7A 

1 90 DATAA9 , 00 , 85 , 54 , A9 , 80 , 85 , 55 , A9 , 1 7 , 85 , 57 , 20 , OE , 7A 

200 DATA68 , AA, 68 , A8 , 68 , 60 

2 1 O DATA48 , 98 , 48 , 8A , 48 

220 DATAA6 ,56,20,21, 7A,CA, DO , FA , A6 , 57 

238 DATAA4 , 58, Bl, 54, 49, 80, 91, 54, 88 , DO , F7 , CA , F8 , 86 , 28 ,21, 7A 

248 DATA4C , 8D , 7A , 68 , AA , 68 , A8 , 68 , 60 

250 DATA* 

260 READL 

270 READA* 

280 C=LEN<A$> 

290 IFA$="*"THEN390 

380 IFC<1ORO2THEN380 

310 A=ASC<A$>-48 

320 B=ASC < R I GHT$ < A* , 1 > > -48 

330 N=B+7* <. B>9 > - < C=2 > * < 1 6* < A+ 7* < A>9 > > > 

340 IFN<0ORN>255THEN38O 

350 POKEL , N 

360 L=L+1 

370 G0T0270 

380 PRINT ,, BVTE"L"=C"A$"3 ????" 
390 END 
RE ADV. 



HIGH DENSITY PLOTTING 



One great drawback with having a display only 40 characters 
wide and 25 lines deep is the poor definition acheivable when 
displaying data in graphical form. Although there is no way, 
short of modifying the circuitry, that the number of 
characters per line can be increased, one can improve the 
definition by clever manipulation of the graphics characters, 
lhus the five quarter square characters can be used to double 
the definition of a graph plotted on the screen. Similarly by 
using the seven characters with horizontal lines of different 
thickness one can draw a bar chart with a resolution of 
better than one in 160. The three programs in this section 
employ these techniques for graph plotting, barcharts and 
eeneral eranhiral Hicniaw 



general graphical display 
DDPLOT 

This subroutine draws a double density graph of a function 
defined as FNP(X) prior to the subroutine call. The axes are 
drawn accross the centre of the screen and down the left hand 
side; no scale is drawn. Lines 24034 to 24040 perform the 
double density character selection from one of four quarter 
square characters. 

Parameters used: 

FNP(X) - the function to be plotted by the subroutine. 
BARPLOT 



BARPLOT draws a vertical barchart of up to 31 variables with 
a definition of 1 in 160. The variables are transfered to the 
subroutine as an integer array P%(X). The barchart is 
surrounded by a border and given a heading in reverse field 
characters in the centre of the top line of the screen. A 
vertical scale is given from zero to the maximum value to be 
displayed, the line increment is thus 1/160 of the maximum 
value. The horizontal scale numbers the bars from 1 to 31- 
this number was chosen to allow the bar chart to display 
daily data over a one month period and can be changed if 
desired Lines 24166 to 24184 increment the vertical line in 
eight discrete steps, using different graphics characters for 
each increment. 



Parameters used: 

P$ - variable for table heading; maximum length 40 
characters. 

P%(X)- table of data to be displayed in barchart; maximum 31 
entries, all integers. 

SP$ - string variable of 40 space characters. 
LPLPTSRC 

This machine code program allows points to be plotted on the 
screen in double density format (ie. screen dimensions are 80 
x 50 points). As with the subroutine DDPLOT, this is done by 
using the quarter square graphics characters. This program 
however is much cleverer since it takes into account all the 
combintions of quarter square characters which can be placed 
in a single character space. The graphics character occupying 
a single character space will change when new points are 
plotted within that character space, without affecting 
existing plot points in the space. The program requires three 
variables which can be passed from a Basic program using POKE 
commands. These variables are the X coordinate passed as one 
byte, the Y coordinate passed as two bytes (the second byte 
is always set to zero). The third variable is set to if the 
point is to be added to the display, and 1 if it is to be 
deleted. The program incorporates error checking and will set 
an error flag if an error condition is present. The error 
states are: firstly, plot coordinates are out of range, and 
secondly a plot point already exists at the coordinates 
specified. The program is located in the second cassette 
buffer and can be loaded either as a machine code program 
using the monitor, or with a Basic loader. This is contained 
in lines 10-400 of the program LINEPLOT. 

Example: To plot a point at X - Y coordinates 14-25 use 
the following commands. 



POKE 84,14 X co-ordinate 

POKE 85,25 Y co-ordinate LSB 

POKE 86,0 Y co-ordinate MSB 

POKE 89,0 add point 



To check the error status. 



PEEK (998) 



LINEPLOT 



This program is an example of the use of the previous machine 
code program; lines 10-400 are a Basic loader for LPLOTSRC. 
The program is designed to draw lines in quarter square 
characters between two sets of screen coordinates. These are 
input in line 1005. The remainder of the program calculates 
the position of the next point in the line, (parameters XI 
and Yl), which are poked into the relevant locations prior to 
jumping to the machine code program in line 2270. The program 
could be easily modified to act as a subroutine within a 
larger program. 



(- 

2 
G 

1000 rem **************************** % 

1001 REM *EXfiMPLE OF SUBROUTINE CALL TO £ 

1002 REM *CONTROL CURSOR POSITION PRIOR * 

1003 REM *TO PRINTING ON SCREEN. U 

loos rem mmmmmmmmmm*mm*m 

1010 REM **CLEfiR SCREEN** 
1020 PR INT" 3"; 

1030 REM **STfiRT PRINTING FIRST LINE AT** 
1040 REM **LINE 5 COLUMN 10** 
1050 COL=10:LNE=5 
1060 GOSUE 29800 

1070 PRINT"*FIRST LINE CQL=10, LINE=5" 
1 OS© REM **SECONn L I NE COL= 1 , L I NE= 1 5** 
1090 COL=l -LNE=15 
1100 GOSUE29800 

1110 PRINT"*SECOND LINE COL=l , LINE=15" 

1500 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

29800 REM *************************** 

29802 REM *CURSOR CONTROL SUBROUTINE 

29804 REM *************************** 

29806 COL$="»i»ii»i»ift»ftii» mmmMmmm ,.. 

298U8 LNE$= " mmmmmmmmmmmam n 

29810 F0RRZ=1T02 
29812 PR I NT" 3"; 

293 1 4 I FCOL> 1 THENPR I NTLEFT* C COL$ , COL - 1> ; 
298 1 6 I FLHE> 1 THENPR I NTLEFT* < LNE* , LNE- 1 > ; 
29818 I FfiZ= 1 THENPR INT" 
29820 NEXTflZ 
29822 RETURN 
REfiBV. 
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1080 REM ************************** 

1001 REM *EXAMPLE OF SUBROUTINE CALL 

1002 REM *TO DRAW GRAPH OF FUNCTION 

1009 REM **************************** 

1010 DEFFNP < X > =S I H < X/6 . 28 > 
1020 GOSUB24000 

1030 END 
2000 REM 
3000 REM 
4000 REM 
5000 REM 
6000 REM 

24000 REM ***************************** 
24002 REM *SUBROUTINE TO DRAW A DOUBLE 

24004 REM *DENSITV GRAPH OF THE FUNCTION 
24006 REM *DEFINED BV - FNPOO 

24005 REM ***************************** 
24010 PR I NT "H" 

240 1 2 FORX=32?68TO33728STEP40 : POKEX , 1 1 : NEXTX 

240 1 4 PR I NT " ««««Htf««*M««a 3" ; 

24016 F0RX=1T079 

24018 Vl=FNPO<> 

24020 V=24+24*V1 

24022 X2= I NT < X/2 > • V2= I NT < V/2 > 

24024 I FX2>390R V2>25THENGOTO24044 

24026 Xl=X/2-X2:Vl=V/2-V2 

24028 A=33?28-V2*40+X2 

24030 I FX K . 5THENX 1 =0 

24032 I F V 1 < . 5THENV 1 =0 

24034 I FX 1 =0 ANDV 1 =0THENC= 1 23 G0TG24042 
24036 I FX 1 OOANDV 1 00THENC= 124: G0T024042 
24038 I FX 1 O0ANDV 1 =OTHENC= 1 08 : G0T024042 
24040 I FX 1 =0ANDV 1 OOTHENC= 1 26 
24042 POKEA..C 
24044 NEXTX : RETURN 
RE ADV. 
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106 DIMP?i<31> 

110 SP*=" 

1000 REM **************************** 

1001 REM *EXflMPLE OF SUBROUTINE CALL 

1002 REM *TO DRAW fi BARCHART. 

1 009 REM **************************** 

1010 F0RQ=1T031 

1020 INPUTP : IFPC0THEN 1 050 : REM ** INPUT TILL NEGATIVE NUMBER** 

1030 p*;cq>=p 

1040 NEXTQ 

1050 P*= " EXAMPLE REM **HEAD I NG** 
1060 GOSUB241O0 

1070 GETA$ : IFA$=" "THEN 1070 'REM **WAIT TILL KEV PRESSED TO END** 

1080 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

— 6000 REM 

24100 REM *************************** 

24102 REM *SUBRCiUTINE TO DRAW BARCHART 

24104 REM *USING 31 VARIABLES STORED 

24106 REM *AS P'iO-O. TABLE HEADING IS 

24108 REM *TRANSFERED AS P*. 

24110 REM *************************** 

24112 A=LEN < Pt > -' A 1 = < 40- A > ■••'2 

24 1 1 4 A 1 *=LEFT* < SP* , Al > 

24116 PRINT".T'; 

24 1 1 8 PR I NT A It:- : PRI NT " S" P$ " ■" 

24120 PRINT" " 

24 1 22 F0RX=32852T0336 1 2STEP40 : POKEX , 1 1 : NEXTX 
24124 FORX=32885TO33685STEP40 : POKEX, 181 NEXTX 

24126 prihj "immmmmmmmmm & i 

24128 PRINT" 1 31 " 

24130 B=0 
24132 F0RQ=1T031 
24134 fl=PK<Q> 
^ 24136 IFA>BTHENE=A 
24138 NEXTQ 
24140 PRINT"MMMM"B 
24142 A=B/160 
24144 F0RQ=1T031 
24146 PR I NT "a" 

24 1 48 FORfl V= 1 T02 1 : PR I NT " M" ; : NEXTAV 

24150 PRINTTAB(Q+4>, 

24152 AS=INT'::pV'::Q>/A> 

24154 AL=INT<AS/8;< 

24156 AF=AS-'::8*AL> 

24 1 58 I FAL< 1 THENG0T024 1 66 

24 1 60 FORQS=0TOAL - 1 

24162 PRINT" a "11".; 

24164 NEXTQS 

24 1 66 I F AF=0GOTO24 1 86 

24 1 68 ON AFG0T024 170, 24 1 72 , 24 1 74 , 24 176,241 78 , 24 1 80 , 24 1 82 , 24 1 84 
24 1 70 PR I NT " !__" : G0T024 1 86 
24 1 72 PR I NT " ft." : G0TO24 1 36 

- 24174 PRINT"*-" : G0T024 186 
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24 1 76 PR INT" ■»" : G0TO24 1 86 
24 i 78 PR I NT " ST" : G0T024 1 86 
24 1 89 PR I NT " a~" : G0T024 1 86 
24 1 82 PR I NT " ST" : G0T024 1 86 
24 1 84 PR I NT " ST" : GGT024 1 86 
24186 NEXTQ 
24188 RETURN 
EfiBV. 
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,*PET IN DOUBLE DENS' I TV FORMfiT 
;*X-C00RD IN LOCATION 84 
V-COORD IN LOCATION 85 
,*0 IN LOCATION 89 TO ADD 
;*1IN LOCATION 89 TO DELETE 
;*ERR0R FLAG IN LOCATION 998 
.;*1 OR 2 = PLOT OUT OF RANGE 
;*4 = NON PLOTTAELE CHARACTER 
;* ALREADY AT THESE COORDINATES 
;* ON SCREEN 



XC00RD=*54 

VC00RD=*55 

A0RD=$59 

BINQFF=$5A 

REFRSH=*E848 

BEGIN=*033A 

*=BEGIN 



START LDA #*0 

STA ERROR 
STA EINOFF 

; TEST IF V-COORD IS >49 

LDA VCOORD 
CMP #50 
BCC VOK 
INC ERROR 

..TEST IF XCOORD IS >79 

VOK LDA XCOORD 
CMP #80 
BCC XGK 
INC ERROR 

..RETURN IF OUT OF RANGE ERROR 

XOK BIT ERROR 
BEQ SORIG 
RTS 

.; INVERT SCREEN FROM TOP TO BOTTOM 
; < V-COORD I NATE > 

SORIG LDA #49 
SEC 

SBC VCOORD 
STA VCOORD 
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;SAVE BOTTOM BIT OF X-COORD 


0058 


0360 






; IN BINOFF 


0059 


0368 








0060 


0360 


46 


54 


LSR XCOQRD 


0061 


0362 


26 


5A 


ROL BINOFF 


0062 


0364 








0063 


0364 






;SflVE BOTTOM BIT OF V-CGGRB 


0064 


0364 






J IN BINOFF 


0065 


0364 








0066 


0364 


46 


55 


LSR VCOORB 


0067 


0366 


26 


5A 


ROL BINOFF 


0068 


8368 








0069 


0368 






; MULTIPLY VCOORD BV 48 AND 


0070 


0368 






;ADD SCREEN BASE ADDRESS 


0071 


0368 








0072 


0368 


06 


55 


ASL VCOOPD 


0073 


036R 


06 


55 


ASL VCOOPD 


0074 


036C 


06 


55 


ASL VCOOPD 


0075 


836E 


A5 


55 


LDA VCTiOPD ;SAVE IN A-PEO 


0076 


0378 


06 


55 


ASL VCOORD 


0077 


0372 


26 


56 


ROL VC00RD+1 


8078 


0374 


06 


55 


ASL VCOORD 


0079 


0376 


26 


56 


ROL VC00RD+1 


0080 


0378 


18 




CLC 


8081 


8379 


65 


55 


ADC VCOORD 


0082 


037B 


85 


55 


STA VCOORD 


0083 


037D 


H5 


56 


LDA VCOORD+l 


0084 


037F 


69 


88 


ADC #$88 . START OF SCREEN 


8085 


8381 


85 


56 


STA VCOORD+l 


0086 


8383 








0887 


0383 






: EXPAND BINOFF 


8888 


0383 








0089 


0383 


A6 


5A 


I T)v BINOFF 

L— A.*« t A.* X 1 T_*l 1 


0090 


0385 


A9 


01 


LDA #1 


0091 


0387 


35 


5ft 


STA BINOFF 


0092 


0389 


E0 


80 


EXP f:pX #8 

aw t If •«*." 1 II TT ^* 


0093 


038B 


F0 


05 


BEQ ENDE-'P 


0094 


038D 


06 


5ft 


ASL BINOFF 

l 1 Vb^ aft* * 1 1 | | 


8895 


038F 


CA 




HEX 


8896 


0390 


90 


F7 


pre Fvp 

A.* L— ■ il 


8897 


0392 








8898 


8392 






; hft rwfip tkjtti ft-ppn 


8899 


0392 








8108 


0392 


fid 
nt 




fmtifvp i Tiv vrnnPTi 


8101 




P 1 


trtr 


I T"lLJ i'* , J , i~'|"~ii~iC*Ti % U 












0103 


0S96 






' r UPPl-'' rUuD T C KfQl TTl fi-'uiOU T i" 

tntUN L-nrlr io vnulJ.' uhnrnit 


0104 


8396 








0105 


8396 


H2 


00 


LDX #8 


8106 


0398 


DD 


CE 03 


MOREC CMP TABLE, X 


8107 


839B 


F8 


0B 


BEQ FOUND 


8108 


839D 


E8 




I NX 


0109 


039E 


E8 


10 


CPX #16 


0110 


03fl0 


90 


F6 


BCC MOREC 



LPLOTSRC. . 




03 


LINE# 


LOG 


CODE 


1 TMF 


8111 


0302 






0112 


0302 




.• (_-nnn. 10 hu i j. ii in.DL.fc. 


0113 


0302 






0114 


0302 


09 04 


i rift U4 


0115 


0304 


8D Ff, Pi": 


'-;T0 FPPfiP 


0116 


03fl7 


ftfl 


|\ ! O 


0117 


03R8 






011 i3 


0308 




; PHOP T X T N ThPI F 


0119 


0308 




; Qfi FPwQF i"iP fiTiTi 
.■ cf^. n--'C l.'i\ rn.ii. 1 


0120 


0308 






0121 


0308 




Ffil IWTi 1 Tifl ftfiCTi 
ruuiiLi i_itn nURJJ 


0122 


0300 


Tifi ft? 


PMF FPwQPT 


0123 


03OC 






0124 


03OC 




; fiTiri pniHT Tfi ^ppffki 

nju'X.» ruin 1 IU OLrl^CCM 


0125 


03OC 






0126 


03OC 


Sh 


0BBPT Tk'O 


0127 


03OB 


05 50 


fiPfi P T MfiFF 
UP.n L> 1 rlUr r 


0128 


03OF 


18 




0129 


03B0 


00 
in) 


TuV 

i rii"i 


0130 


03B1 




Pi" r i.iPi T T 


0131 


03B3 






0132 


03B3 




• ppoc-p pri t ut ppriM Cf pccw 


0133 


03B3 






0134 


03B3 


05 50 


CpfjQpT 1 TiCi pTKillPP 


0135 


03B5 


4* FF 


PflP iii-FP 


0136 


03B7 


85 Sh 


51(1 r> I nur r 


0137 


03B9 


8fl 


i An 


0138 


03BO 


•25 50 


ONI"! P T MfiFF 


0139 


03BC 


00 


Toy 
1 nn 


O140 


03BD 






0141 


03BD 




■ LJflTT PflP '-iPPFFM PFFPFCM 


0142 


03BD 






0143 


03BD 


OB 40 F8 


IJ0TT 1 TlH PFPP'^H 


0144 


03C0 


~ — • V— *—* 


cur ■fT-* , c-L | 


0145 


03C2 


29 20 


ni ii* tt w t* 


0146 


03C4 


F0 F7 


PFn l.ift T T 


0147 


63C6 






8148 


03C6 




' MP' T TP kIPl.i r,PQPU T i" - i~ lJCiC» Tn crDrcu 
.■ WM It iitw uftnrnlL- Lnnh. IU oL-Kctri 


0149 


03C6 






0150 


03C6 


PTi fF Cr'Z 

Z'L 1 '_C UO 


1 T°i£j TlZiT't rr V 


0151 


03C9 




i tvj vr-nnC'Ti 
LI't aLUUKII 


0152 


03CB 




~- T i~i /l l|~ •i~n~iCjTi \ 1 • 

oln 'v tLuUKII.) .• t 


0153 


03CB 






0154 


03CD 




RETURN SUCCESSFULLV 


1 55 


03CD 






1 56 

6157 


03CD 
03CE 


60 




0158 


03CE 




■ x iij t' I c i*"ic rDuDu t rc i~'i_iiiiCfiiii~Tcc , »~ 
.• 1 nr>Lt Ur LikHrnlLb LHHKHL 1 hKo 


0159 


03CE 






0160 


03CE 




1 ril>L.C. . t>7 1 t 5-ii.fc 1 .■ * i t .• i i> .• -T-O 1 


0160 


03CF 






0160 


03B0 


7B 




0160 


03D1 


61 




0161 


03B2 


7C 


. BYTE $7C,*E2,$FF,$EC 


0161 


03D3 


E2 





LPLOTSRC PAGE 0984 



r 



LINE# 


LOC 


CODE 


LINF 
i — j. t it. 


0161 








0161 

W X W X 


03B5 


FP 




0162 


63D6 


6C 


• X' T It 


0162 


03D7 


1 1 




0162 


83D8 


62 




0162 


03D9 


FC 




0163 


03Dfl 


El 


. BVTE 


0163 


03DB 


FB 




0163 


03DC 


FE 




0163 


83DD 


R0 




0164 


03DE 




*=*+8 


0165 


03E6 




ERROR *=*+i 


0166 


03E7 




.END 



. BVTE *6C,*7F,*S2,*FC 



. BVTE $E 1 , *FB , $FE , tfiQ 



ERRORS = 0000 



SVMBOL TABLE 



SVMBOL 
ADDPT 
ENDEXP 
FOUND 
START 
XOK 



VALUE 
03AC 
0392 
03A8 
033A 
0353 



AORD 

ERASPT 

MOREC 

TABLE 

VCOORD 



0859 
03B3 
0398 
03CE 
8055 



BEGIN 

ERROR 

REFRSH 

WAIT 

VGK 



633A 
63E6 
E840 
83BD 
034A 



BINOFF 
EKF 
SGRIG 
XCOORD 



065A 
8389 
8359 
8854 



END OF ASSEMBLV 



5k 



o 

►J 

CL, 

1 REM ****************************** S 

2 REM *PROGRflM TO DRAW LINES ON SCREEN ^ 

3 REM *LISING DOUBLE DENS I TV MACHINE 

4 REM *CODE PLOT SUBROUTINE. 

6 REM ****************************** 

7 REM 

8 REM 

9 REM **MACHINE CODE LOADER** 
IS DATA826 

28 DAT A A3.. 00 , 8D , E6 , 03 , 85 , 5 A 

30 DATAA5 , 55 , C9 , 32 , 90 , 03 , EE , E6 , 03 

40 DATAA5 , 54 , C9 , 50 , 90 , 03 , EE , E6 , 03 

50 DATA2C , E6 , 03 , FO , 1 , 60 

60 DAT AA9 ,31, 38 , E5 , 55 , 85 , 55 

70 DAT A46 , 54 , 26 , 5 A 

SO DATA46 , 55 , 26 , 5A 

90 DATA06 , 55 , 06 , 55 , 06 , 55 , A5 , 55 , 06 , 55 , 26 , 56 , 06 . 55 . 26 . 56 . 1 8 

9 1 DAT A65 , 55 , 85 , 55 , A5 , 56 , 69 , 80 , 85 , 56 

1 00 DAT A A6 , 5A , A9 ,01, 85 , 5 A , EO , 60 , F0 , 05 , 06 , 5A ■ CA , 90 . F7 

1 1 DAT AA4 , 54, Bl , 55 , A2 , OO , DD , CE , 03 , F0 , 0B , E8 , E0 . 1 , 90 . F6 

1 20 DATA A9 , 04 , 8D , E6 , 03 , 60 

1 30 DATAA5 , 59 , DO , 07 , 8A , 05 , 5A , 1 8 . AA . 90 , 0A 

1 40 DAT A A5 , 5 A , 49 , FF , 85 , 5 A , 8A , 25 . 5 A . AA 

1 50 DATAAD , 40 , E8 , 49 , 20 , 29 , 20 , F0 , F7 

1 60 DATABD , CE , 03 , A4 , 54 , 9 1 , 55 , 60 

1 70 DAT A20 , 7E , 7B , 6 1 , 7C , E2 , FF , EC , 6C , 7F , 62 , FC , E 1 . FB ■ FE . flfl 

ISO DATA* 

200 READL 

210 READA* 

220 C=LEN-::A*> 

230 IFA*="*"THEN400 

240 IFCC1ORO2THEN320 

250 A=ASC'::A|:>-48 

260 E-ASC >: R I GHT* < A* , 1 > > -48 

270 N=B+7*<B>9>-<C=2 .':'*< 16*':'A+7*< A >9> '> :> 

280 IFN<OORN>255THEN320 

290 POKEL , N 

300 L=L+1 

3 1 O G0TG2 1 u 

320 PR I NT" BVTE "L" = C " A* " ] " 
400 PRINT"!!" .; 
600 REM 

700 REM **ROiJTINE TO DRAW LINES FROM START TO END COORDINATES** 

300 REM 

1000 PR INT" a"; 

1805 INPUT>a,Vi,X2, V2 

1010 GObUE2000 

1015 PRINT "3 

1020 GOTO 1O00 

2000 REM 

2010 REM **CHECK COORDINATES IN BOUND** 
2020 REM 

2030 I F (. XI >=0ANDX 1 <=79 > AND < K2>=0ANDX2<=79 > THEN2O60 
2040 ER*="X OUT OF RANGE" 
2050 RETURN 

2060 I F V 1 >=0AND V 1 <=49 > AND C V2>=0ANDV2<=49 > THEN2090 
2070 ER*="V OUT OF RANGE" 
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2088 RETURN 
2090 ER*="" 
2100 XD=X2-X1 
2110 VD=V2-V1 

2120 REM **NEflREST DIAGONAL** 

2130 A0=1 : A1=1 

2140 IFVD<0THENfl0=-l 

2150 IFXB<0THENA1=-1 

2160 REM **NEAREST HORIZ/VERT** 

2 1 70 XE=ABS < XD > = VE=flBS < VD ) •• D 1 =XE- VE 

2180 IFIU>=0THEN2220 

2 1 90 S0=- 1 :S1=0 : LG=VE : SH=XE 

2200 IFVD>=0THENS0=1 

2210 GOTO2240 

2220 SO=0 : S 1 =- 1 : LG=XE = SH=VE 

2230 IFXD>=0THENS1=1 

2240 REM **SET UP** 

2250 TT=LG : TS=SH : UD=LG-SH = CT=SH-LG/2 

2255 D=0 

2260 REM **WHILE MORE POINTS DO** 

2270 P0KE84 , X 1 P0KE85 , V 1 : P0KE86 , ■• P0KE89 , D = SVS < 826 > 

2288 IFCT>=0THEN2320 

2290 CT=CT+TS : X 1 =X 1 +S 1 : V 1 =V 1 +38 

2310 GOTO2360 

2320 CT=CT-UD : X 1 =X 1 + A 1 • V 1 = V 1 +A0 
2360 TT=TT-1 
2370 I FTT<=0THENRETURN 
2388 G0T02278 
REflDV. 
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GENERAL PURPOSE SCREEN HANDLER 



This section deals with a general purpose subroutine capable 
of handling all data input and output from the screen (apart 
from graphical output). The subroutine incorporates full 
error checking, validation, and screen formatting. The basis 
of this subroutine is a table of nine arrays (in the 
subroutine these have 50 elements each, but this can be 
varied to suit the application and the machine). These arrays 
are used to store the parameters required by the subroutine, 
however, although parameters can be passed to and from this 
array from the main program, it is designed to be loaded with 
data from a disk file. The disk file will contain all the 
data required to print a message on the screen and input data 
according to certain parameters. Each element in the table 
contains nine variables (one from each array). These 
variables are: the message to be printed on the screen, its 
position on the screen, the start position of associated data 
input, input type and length. The last of the nine variables 
is an array where the data input is stored. They are as 
follows: 



LS - line of start of screen message 
CS - column of start of screen message 
LE - line of start of associated input 
CE - column of start of associated input 
P2$ - input type 

A = alphanumeric 

N = numeric 

D = date 

Y = yes/no 

C = numeric + check digit 
P3 - maximum input length 
P4 - minimum input length 
Vt$ - message for display on screen 
PD$ - data input by subroutine or 

data from main program to be output 



These variables are stored on disk as a sequential file, (a 
parameter file), all associated elements being concatinated 
together as a single string variable 79 bytes long. This disk 
file is read by the subroutine starting at line 12000, which 
eads each of the concatinated strings (up to 50) in the data 
file, and dissects them into variables in their respective 
arraysOines 12130-12170). The disk file is created when the 
program is written, using the program CRTMASK. The name given 
to this file will then be used as the variable PN$ in the 
file read subroutine at line 12000. Before creating the file 
all the screen displays used by the program should be drawn 
out on graph paper as they will appear in the program (see 
diagram). Wherever possible the same input prompts should be 
reused in the same position on different screen displays, 
economising on the number of records in the file. This 



subroutine also has a "help" facility which gives the 
operator additional information on what to do for a 
particular entry. The help facility is called by pressing the 
question mark key, a line of text explaining the current 
entry is then displayed on lines 24 and 25 of the screen. 
This line of text is also stored on the screen format 
parameter file, it is identical to a normal input message 
except that the parameters for input type, start and length, 
are set to zero. When all the data has been entered on to the 
file using the program CRTMASK the file should be terminated 
by entering a record consisting entirely of "Z"s, so that all 
79 bytes of the record contain the character "Z". An example 
of the parameter file required by this subroutine is on the 
disk associated with this book it is called SCREENl. 
Having used the subroutine at line 12000 to load the data 
from the parameter file into the arrays, the main screen 
handling subroutine can now be run. This main subroutine 
which starts at line 28500 requires four parameters in both 
the input mode and output mode (besides the screen format 
parameter arrays). The most important of these is the 
input/output array PD$; the pointer to which element in PD$ 
is to be accessed is stored in the string Pl$. Pl$ is a 
string of concatinated two digit pointers into the screen 
format table, to screen format commands and messages required 
in a particular screen display. Thus a string for Pl$ of 
"09020501" will display messages stored in elements 9,2,5, 
and 1 of the screen format table and put the inputs in 
PD$(9),PD$(2),PD$(5) and PD$(1). A similar string PH$ is used 
to point to the 'help messages' in the array. PH$ is the same 
length as Pl$ and the 'help message' for a given input will 
be in the corresponding position to the pointers for the 
input in Pl$. With the Pl$ string "09020501" a corresponding 
string for PH$ could be "04000600" where 'help message' 4 
will be displayed if requested during input 9 and help 6 
during input 5. An input of 00 in PH$ means no 'help 
message', thus input 2 will have no 'help message'. The last 
parameter required is PO. This is used to indicate whether 
the subroutine is to be in the input or output mode. If PO is 
set to then the subroutine is in the normal input mode, and 
the result of each input line will be put into the 
corresponding element of PD$. If PO is 1 then the subroutine 
will be in tho output mode and the contents of the 
corresponding elements of PD$ will be displayed after the 
message starting at the input start location. Lines 2000-2040 
are an example of parameter calling routine using the screen 
handling subroutine and setting up the parameters for input 
of data. Lines 3000-3050 are simply a means of displaying the 
contents of the output parameters in array PD$ which have 
been input by the subroutine. 

All the standard data input command keys are used (see 
section on data input subroutines p. 13). Note that when a 
field is aborted the word "abort" is placed in the 
corresponding element of array PD$. 



Parameters used: 



Arrays: 

LS(X) - line of start of message,two bytes long 

CS(X) - column of start of message,two bytes long 

LE(X) - line of start of input or output variable, two bytes 

long 

CE(X) - column of start of input or output variable, two 
bytes long 

P2$(X)- input type, one byte long 

P3(X) - maximum input length, two bytes long 

P4(X) - minimum input length, two bytes long 

M$(X) - screen input message or help message max 66 bytes 

long 

PD$(X)- result strings either from input or to be output, 
maximum length defined by contents of variable P3(X) 

Mask strings: 

Pl$ _ string of pointers PI into arrays 
M$,LS,CS,LE,CE,P2$,P3,P4 and PD$; each pointer occupies two 
bytes and there is no limit on the number of pointers in the 
string. 

PH$ - string of pointers into array M$ used for help 
messages, each pointer occupies two bytes and corresponds to 
a pointer in the same position in Pl$. A 00 entry signifies 
that no help message is available for that entry. 

Various: 

PO - set to one for subroutine to function in output mode 
and set to zero for normal input mode. 

PN$ - screen format file name required when screen parameter 
file is read during program initialisation, should contain 
the file name then ",S,R"(eg PN$="SCREEN1,S,R" where SCREEN 1 
is the file name) 

SP$ - string of 40 space characters 
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100 SP*=" 

110 CR*=CHR*<13> 

1980 REM *************************** 
1801 REM *THIS PROGRAM IS DESIGNED TO 

1002 REM *CREflTE fi DISPLAV DATA FILE 

1003 REM *FOR USE EV THE PROGRAM 
1094 REM *CRTFORMAT. 

1009 REM *************************** 
2008 INPUT"^SW«C:RT MASK FILE NAME"; A* 
2050 B*= " e 1 = " + A*+ " , SEQ , WR I TE " 
2060 OPEN 15,8,15: GOSUB30000 

2109 OPEN2,8,2,B$:GOSUB30000 
2105 PRINT#2,A*CR* 

2110 FORQ=0TQ50 : REM **MflX NUMBER OF RECORDS IN FILE** 
2120 INPUT"SSi!LINE OF START OF MESSAGE"; B* 

2130 B*=RIGHT*<"88"+B*,2> 
2140 CU*=B* 

2158 INPUT"MCOLUMN OF START OF MESSAGE" ; B* 
2 1 60 B*=R I GHT* < " 00 " +B* , 2 > 
2170 CU*=CU*+B* 

2180 INPUT"M_INE OF START OF INPUT";B* 
2 1 90 B*=R I GHT* < " 80 " +B* , 2 > 
2200 CU*=CU*+B* 

2210 INPUT")CQLUMN OF START OF INPUT" ;B* 
2220 B*=R I GHT* < " 86 " +B* , 2 > 
2230 CU*=CU*+B* 

2240 INPUT "VARIABLE TVPE- A, N OR M ";B* 
2250 £*=R I GHT* < B* , 1 > 
2260 CU*=CU*+B* 

2270 INPUT"M1AXIMUM INPUT LENGTH" ;B* 
2280 B*=R I GHT* < " 80 " +B* , 2 > 
2290 CU*=CU*+B* 

2300 INPUT "Ml INIMUM INPUT LENGTH" ;B* 
2318 B*=RIGHT*':"8e"+B*,2> 
2328 CU*=CU*+B* 

2330 I NPUT " rMWfltSWSCREEN MESSAGE ";M* 

2340 IFLEN-:M$>>66THEN2330 

2358 M*=LEFT* < M*+SP* , 66 > 

2428 I FLEFT* < CU* , 2 > = " ZZ " THENQ=56 

2438 REM **PRINT CONCATINATED RECORD TO DISK** 

2448 PR I NT#2 , M*+CU*CR* 

2470 NEXTQ 

2500 CL0SE2:END 

20000 REM **DISK ERROR DETECTION** 
38808 I NPUT# 1 5 , EN* , EM* , ET* , ES* 
30010 IFEN*="00"THEN RETURN 
30020 PR I NTEM* , EN* , ET* , ES* 
30030 CL0SE2:END 
RE ADV. 
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< 

100 sp*=" £ 

110 D I MPD* < 50 > .■ LS < 50 > , CS < 50 > , LE < 50 > , CE < 50 > , P2$ < 50 > , P3 < 5© > .. P4 < 50 ^ , m < 5© > t 

1000 REM ***************************** g 

1001 REM *EXAMPLE OF SUBROUTINE CALL - 

1002 REM *FIRST TO INPUT SCREEN FORMAT 

1003 REM *FILE FROM DISK THEN RUN SCREEN 

1004 REM *HflNDLER PROGRAM TO DISPLAV 

1005 REM *SAMPLE SCREEN OUTPUT WITH 

1006 REM *DIFFERENT TVPES OF INPUT AND 

1007 REM *HELP MESSAGES. 

1009 REM ***************************** 
1100 REM 
1200 REM 
1300 REM 

1400 PN$=" SCREEN! " 
1410 GOSUE 12000 
1500 REM 
1600 REM 
,1700 REM 

2000 Pl*= "01 02030405" 
20 1 PHt= " 060© 070800 " 

2015 PR I NT "3" ..' 

2016 PO=0 

2020 GOSUE2S500 
2030 END 
4000 REM 
5000 REM 
6000 REM 
7000 REM 
8000 REM 

12000 REM *************************** 

12010 REM *S/R TO INPUT SCREEN FORMAT 
12020 REM *DATA FROM FILE NAME PN* 
12030 REM *ALSO INITIALISE ARRAYS USED 
12040 REM *BV SCREEN HANDLER. 
12050 REM *************************** 
1 2060 FORQ=0TO50 

1 2070 m < q :> - " " •■ pd* < Q :> = " " 

12080 NEXTQ 
12090 0PEN2,3,2,PN$ 
12100 FORQ=0TO50 
12110 INPUT#2,H* 

12120 IFMID$'::fl*,67,2> = "ZZ"THENQ=50 

12130 LS<Q>=VhL'::MID$-:A*,68,2>;' :CSCQ)=VAL<MID*<Af ,70,2>> 

12140 LE<Q>=VALaiID*'::A$,72,2>> : CE<GD=VAL<MID*(. A$.. 74, 2> > 

12150 P2*(Q>=MIDf ':A*,76, 1 > : P3(Q>=VflLCMID*<fl** 77, 2> > 

12160 P4(Q)=VflL<MID*<fl*,79,2>) 

12170 M$ < Q > =LEFT$ < fit- , 66 > 

12300 NEk'TQ 

12310 CL0SE2 

12320 RETURN 

26000 REM 

21000 REM 

22000 REM 

23000 REM 

25000 REM *************************** 

25010 REM *CHECK DIGIT CALCULATION 
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25020 REM *NUMBER INPUT AS P* AND 
25030 REM *CHECK DIGIT OUTPUT AS PC 
25040 REM *************************** 

25050 A= VAL <! P$ > : BD= 1 

25060 I FLEFT* < P$ , 1 ) = " - " THENA= V AL < R I GHT$ < P$ , LEN < P$ > - 1 > > : ED=50 

25070 fll=0:fl2=2 

25080 E=INT<ft/10> 

25090 A 1 =A 1 + < A- < B* 1 > > *A2 

25100 IFB=0THEN25140 

25110 A=B 

25120 A2=A2+1 

25130 GOTG25080 

25 1 40 AD= A 1 - < I NT < A 1 / 1 1 > * 1 1 > 

25150 AD=1 1-RB 

25 1 60 PC= I NT < AD > +BB : RETURN 

26000 REM 

26500 REM 

27000 REM 

27500 REM 

23500 REM **************************** 
28510 REM *START OF SCREEN FORMAT S/R 
28520 REM **************************** 

28530 I=LEN<P1$> 
28540 F0RAI=1TGISTEP2 
28550 IFAK1THENAI=1 
28560 P 1 = V AL ( M I D$ < P 1 * , A 1 , 2 ) > 
28570 PH= V AL C M I D* ( PH* , fl 1 , 2 > > 
28580 PD*<P1>="*" 

28670 REM **************************** 
28680 REM *CLR HELP & PRINT MESSAGE 
23690 REM **************************** 

28700 I FPL=2THENC0L= 1 : LNE=24 : GOSUB29800 PR I NTSP* ; 
28705 PL=0 

28710 COL=CSCPl > : LNE=LS<F1 > : GOSUB29800 : PRINTLEFT*<M*<P1 > , 40 > ; 
28720 COL=CE < P 1 > : LNE=LE < P 1 > GOSUB29800 
28730 I FPO= 1 THENPR I NTPD* < P 1 > : G0T0294 1 
28740 REM *#*CLEflR INPUT VARIABLES*** 
28750 p$="" 

28760 REM ***PRINT INPUT PROMPT*** 
28770 FORQ= 1 TOPS < P 1 > : PR I NT " _" ; : NEXTQ 
28780 FORQ= 1 TOPS < P 1 > : PR I NT " II" ; : NEXTQ 
28790 REM ***GET INPUT CHARACTER*** 
28800 REM ***& TEST FOR COMMANDS*** 
28810 POKE 158,0 
28815 GET A$ •' IFA$=" "THEN 28815 
28820 I F A$=CHR$ (13) THEN28960 
28830 IFA$="*-"THEN GOTO2901O 
28840 I F A*= " t" THENPL= 1 : GOTO29390 
28850 IFA*="!"THEN GOTO29400 
28860 I FA$= " ? " THEN PL=2 •• G0T029760 
28870 REM 

28880 REM ***DELETE LINE*** 
28890 REM 

28900 I Ffl*OCHR$ < 20 ) THEN29O80 
28905 I FP*= " " THEN288 1 

28910 PL=LEN<P*> :FORQ=lTOPL PRINT"H".i : NEXT 
23920 GOTO28750 
28930 REM 

28940 REM ***CHECK FOR RETURN*** 
28950 REM 



28966 I FLEN < P$ > >=P4 (. P 1 > THEN29360 
28970 GOTO28810 
28980 REM 

28990 REM ***HELETE CHARACTER*** 
29000 REM 

290 1 I FP*= " " THEN288 1 6 
29030 P$=LEFTf < P* , LEN < Ft > - 1 > 
29040 fi$="ll_ll" :GOTO29306 
29050 REM 

29060 REM ***HETERMINE INPUT TYPE*** 
29070 REM 

29080 I FP2* < P 1 > = " ft " THEN29240 

29090 I FP2* <: P 1 ) = " N " 0RP2$ < P 1 > = " C " 0RP2* < PI >="D " THEN29 1 70 

29 1 00 I FP2* < P 1 ■) = " V " THEN29559 

29110 REM 

29120 REM 

29130 GOTO29240 

29140 REM 

29150 REM ***NUMERIC INPUT *** 
29160 REM 

29 1 70 I FH*= " . " THEN29290 

29 1 80 I Fft*= " - " fiNDP*= " " THEN29290 

29 1 90 I Ffl*< " " ORfl*> " 9 " THEN288 1 

29200 GOTG29290 

29210 REM 

29220 REM ***RLPHfiNUMERIC INPUT*** 

29230 REM 

29240 IFft$<" "THEN28810 

29250 I Ffi*> " Z " fiNDR*< " I " THEN288 1 

29260 REM 

29270 REM ***CGNC'ftT I NftTE*** 
29280 REM 
29290 F$=Pt+m 
29300 PRINTfl*; 

293 1 I FLEN < P* > <P3 < P 1 > THEN288 1 
29320 I FLEN < P* > =P3 < P 1 > ANDP2* < P 1 > = " C " THEN2945© 
29330 I FLEN < P* > =P3 < P 1 > ANDP2* < P 1 > = " D " THEN29630 
29340 REM 

29350 REM ***PLfiCE IN INPUT ftRRftV*** 
29360 PD*tPl)=P* 
29370 REM 

29380 REM ***CHECK FOR UP ONE LINE*** 
29390 I FPL= 1 THENft I =fil— 4 
29400 NEXTfll 

29410 RETURN -REM ***S/R EXIT*** 

29420 REM 

29430 REM ***CHECK DIGIT INPUT 
29440 REM 

29450 PR I NT " ; GOSUB25000 

29460 GETH$ : IFft$=" "THEN29460 
29470 GETfll$ : IFR1 "THEN29470 
2948S H*=H$+H 1 $ ■ PR I NTH* .; fiC=VfiL < ft* > 
29490 I FftC=PCTHEN29360 
29500 FORQ= 1 TO 1 00 : NEXT 
29510 PR I NT "III III"; :G0T029458 
29528 REM 

29530 REM ***VES/NO INPUT*** 
29540 REM 

29550 IFH$="V" THENP*= " 1 " : PR I NT " VES " ■■ GOTG29360 
29560 I Ffl*= " N " THENP*= " " : PR I NT " NO " = GOTO29360 



29576 G0T028818 
29586 REM 
29598 REM 

29600 REM *************************** 
29610 REM *DATE INPUT AND VALIDATION 
29620 REM *************************** 
29630 AM*= " 3 1 283 1 303 1 303 i 3 1 303 1 303 1 " 
29640 AL*= " 3 1 293 1 303 1 303 1 3 1 303 1 303 1 " 
29650 AD* V AL < LEFT* < P* , 2 > > 
29660 AM* VAL < M I D* < P* ..3,2 > > 
29678 AV= V AL C R I GHT* < P* , 2 > > 

29688 I FAM< 1 ORAM> 1 2ORAV<70ORAV>85ORAD<0 1 0RAD>3 1 THEN29720 

29690 AR= 1 900+AV •' IFINT< AR/4 > =AR/4THENAM*=AL* 

29780 I F AD> VAL < M I D* < AM* , AM*2- 1 , 2 > > THEN29720 

29710 GOTO29360 

29728 GOTO28910 

29730 REM 

29740 REM ***HELP MESSAGE PRINT*** 
29758 REM 

29760 IFPH=0THEN28710 

29770 COL=l : LNE=24 •• GOSUB29800 

29780 PRINT" 3 HELP - ■" .; LEFT* < M* < PH > , 66 > ; 

29790 G0T0287 1 

29880 REM *************************** 
29810 REM *CURSOR CONTROL SUBROUTINE 
29828 REM *************************** 

29330 AC*= " »ii»»»»»i»»»iii»m»»mi»t»r 

29848 AD*= " MUMNUM^^ 
29868 PR I NT "IS".; 

29876 I FCOL> 1 THENPR I NTLEFT* < AC* , COL- 1 > i 
29888 I FLNE> 1 THENPR I NTLEFT* < AD* , LNE- 1 > ; 
29910 RETURN 
RE ADV. 
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ARRAY SORTS 



Where data is stored in an array, it is frequently desirable 
to have the data in an alphabetic or numerical order. The 
principle reason for storing data in an ordered format is 
that it is quicker and easier to find an item in an ordered 
array than in an unordered array. The problem is that data is 
rarely entered into an array in an ordered form. To order the 
array a special sort subroutine is used to convert the 
unordered data into ordered form. There is a wide range of 
different sort algorithms the choice of which one to use 
depends on several factors, such as the time taken to sort an 
array of a certain size and the amount of extra memory 
required for temporary storage by the sort program. The 
general principle being the quicker the sort the larger the 
amount of memory required to store the variables. The time 
taken to sort an array depends on the the array size. The 
relationship between size and speed is exponential. Doubling 
the array size will require much longer than double the time 
to sort. The following are three different types of simple 
array sort subroutines. 



BUBBLESORT 



This is the simplest of all sort algorithms and also one of 
the slowest, however, as it uses virtually no temporary 
storage, a bubblesort is the ideal choice if memory is at a 
premium and sort time is not important. The first version of 
oubblesort will sort an array PS$ of PN elements into 
alphabetical order. The second version is identical except 
that the sort key length PK can be selected. Meaning that if 
the sort key is set to 3, the array will be sorted so that 
only the first three characters of each element are in, order, 
the order of any subsequent characters is ignored. Note: 
alphabetic sorts will also sort numbers providing they are 
all integers and stored in string format. Fractional numbers 
are likely to be sorted incorrectly. 



Parameters used 



PS$ - array to be sorted, sorted output stored in same array 
PN - number of elements in array 
PK - length of sort key 



SHELL METZNER 



A Shell-Metzner sort is considerably faster than a 



bubblesort, but as it is also very economical on temporary 
storage requirements, it is probably the best simple array 
sort algorithm for general purpose use. The first version of 
the Shellmetzner sort will sort an array PS$ of PN elements 
into alphabetic order with a sort key length of PK. The 
second version will sort PN numeric variables, stored in 
string format in array PS$, into numeric order, placing 
fractional numbers into their proper positions as well as 
integers. 



Parameters used: 



PS$ - array to be sorted; sorted output put in same array 
FN - number of elements in array PS$ 
PK - sort key length 



REPLACESORT 



This is the fastest of the three algorithms in this section, 
but unfortunately it requires a considerable amount of extra 
memory. The main reason for the extra memory requirement is 
that the output array is different from the input array, also 
an index array of twice the number of elements in the input 
array is required. The output array is not absolutely 
necessary, since the index array will contain information 
about the proper order of the data in the input array. Line 
26270 could therefore be omitted to save space occupied by 
the output array. If this line is omitted then the index 
array must be used to indicate the order of the input array. 
The existence of an index array is useful when sorting a 
table consisting of more than one array. By sorting one array 
the pointers in the index array can be used with the other 
arrays, thereby keeping associated elements in different 
arrays together. 



Parameters used: 



p N - number of elements in input and output arrays 

(index array has 2 x PN elements) 
PU$(PN)- input array of PN elements 
PS$(PN)- output array of PN elements 
PK2PN)- index array of 2xPN elements 



CC 
O 

106 DIM PS*<10) j 

1000 rem #*#*ftMm**MM****M*#****# g 

1001 REM *EXAMPLE OF SUBROUTINE CALL => 

1002 REM *TO SORT DATA IN ARRAY PS*0 ? 

1003 REM *USING A BUBBLE SORT. 

1009 rem Mmmm*mwM*mMM**-***** 

1010 FORQ=1TO10 

1020 INPUTPS*<Q> -REM ** INPUT DATA INTO PS*Q** 
1830 NEXT 
1040 PN=10 

1050 GOSUB20000 : REM **SGRT** 
1060 FORQ-1TO10 

1070 PR I NTPS* < Q > •* REM #*PRINT SORTED ARRAY** 

1080 NEXTQ 

1090 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

2000O REM************************** 

20010 REM*BUBBLE SORT OF ARRAY PS* 
20020 REM*NUMBER OF ELEMENTS IN 
20030 REM* ARRAY PN. 
20040 REM************************* 
20050 FORG= 1 TOPN- 1 
20060 FGRX= < Q+ 1 > TOPN 
20070 I FPS* < X > >=PS* < Q > THEN2S 110 
20080 A*=PS*(Q> 
20090 PS$<Q>=PS*<X> 
201O0 PS$<X)=A$ 
20110 NEXTX 
20120 NEXTQ 
20130 RETURN 
READY. 



23000 REM************************** 

23010 REM*BUBBLE SORT OF ARRAY PS* 
23020 REM*NUMBER OF ELEMENTS IN 

23030 REM*ARRAY PN KEY LENGTH PK h 
23040 REM************************* g 

23050 FORQ=lTOPN-l £ 
23060 FORX=<Q+l >TOPN j 
23870 IFLEFT$CPS*<X;',PK»=LEFT*(PS*<:Q>,PK>THEN23110 § 
23080 H*=PS*<Q) D 
23090 PS*t'Q>=PS*<X> ? 
23100 PS*<X)*A$ 
23110 NEXTX 
23120 NEXTQ 
23130 RETURN 
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100 dim ps$ae> 

1000 REM 

REM *EXRMPLE OF SUBROUTINE CALL - 
REM *TO INPUT AND SORT AN ARRflV P: 
REM *USING fl SHELL METZNER SORT. 
REM 

FORQ=1TO10 
INPUT PS*<Q) 



1001 
1002 
1003 
1009 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
2000 
3000 
4000 
5000 
6000 

23200 
23210 
23220 
23230 
23240 
23250 
23260 
23270 
* 23280 
23290 
23300 
23310 
23320 
23330 
23340 
23350 
23360 
23370 
23380 
23390 
READY. 



3*0 



NEXTQ 



SORT 



INPUT 
PN=10 

GOSUB23200 
FORQ=1TO10 
PRINTPS*<Q) 
NEXTQ 
END 
REM 
REM 
REM 
REM 
REM 



KEV 



LENGTH ";PK 



REM*SHELL-METZNER SORT OF ARRflV 
REM*PS$, NUMBER OF ELEMENTS PN 
REM*KEV LENGTH PK. 



AN=PN : AM=PN 

AM=INT<AM/2> • IFAM=0THEN RETURN 

AJ=1 : AK=AN-AM 

AI=AJ 

AL=AI+AM 

I FLEFT* < FS* < A I > , PK > OLEFT* C PS* < AL > , PK > THEN233 t tf 

a*=ps$<ai:j 
ps$<ai>=ps$<al> 

PS*<AL>=A* 

AI=AI-AM 

IFAK1THEN2337© 

G0T023290 

A,T=A,T+1 

IFAJ>AKTHEN23260 
GOTO23280 
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100 DIM PS*<10) 

1000 REM 

1001 REM *EXAMPLE OF SUBROUTINE CALL - 

1002 REM *TO INPUT AND SORT AN ARRflV 

1003 REM #OF NUMERIC VARIABLES PSSO 

1004 REM *USING A SHELL METZNER SORT. 

1009 REM ********** ******************* 

1010 FORQ=1TO10 

1020 INPUT ps*<:g>: REM** INPUT ARRAV** 
1030 NEXTQ 
1048 PN=10 

1050 GOSUB23200: REM**SORT** 
1060 FORQ=1TO10 

1070 PRINTPS*<Q) • REM**PRINT SORTED ARRAV** 

1080 NEXTQ 

1090 END 

2000 REM 

300O REM 

4000 REM 

5000 REM 

6000 REM 

23200 REM**************************** 

23210 REM*SHELL-METZNER SORT OF ARRAV 
23220 REM*PS*, NUMBER OF ELEMENTS FN 
23230 REM* < NUMERIC VARIABLES) 
23240 REM**************************** 

23250 AN=PN : AM=PN 

23260 AM=INT<AM,"2> : I FAM=0THEN RETURN 
23270 AJ= 1 : AK=AN- AM 
232S0 AI=AJ 
23290 AL=AI+AM 

23300 I F VflL < PS* < A I > > OVAL < PS* C AL > > THEN23370 
23310 A*=PS*<AI) 
23320 PS$<AI>=PS$<AL> 
23330 PS*<flL)=A* 
23340 AI=AI-AM 
23350 I FA I < 1 THEN23370 
2 3 3 6 G T 2 3 2 9 
23370 AJ=AJ+1 
233S0 IFflJ>AKTHEN23260 
2 3 3 9 ft G T 2 3 2 8 ft 
RE ADV. 
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rn 1@0 DIM P I < 20 > .• PU* '■. 1 > PS* 1 > 

g 1000 REM ***************************** 

to 1001 REM *EXAMPLE OF SUBROUTINE CALL - 

"1 1002 REM *T0 SORT AN ARRflV PS*0 USING 

1003 REM *A REPLflCESORT. THE CONTENTS OF 

1004 REM *BOTH THE UNSORTED, INDEX, AND 

1005 REM *SORTED ARRAYS ARE PRINTED AFTER 

1006 REM *THE SORT. 

1009 REM ***************************** 

1010 FORQ=1TO10 
1020 INPUTPU*<Q> 
1030 NEXTQ 

1040 PN=11 

1 050 GOSUB26200 

1060 FORQ=1TO10 

1070 PRINTPU$tQ>,PS*(Q>,PKQ> 

10SO NEXTQ 

1100 END 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

26200 REM **************************** 

26201 REM ^REPLACEMENT SORT, UNSORTED 

26202 REM *DATA IN PU*<I >, SORTED IN 

26203 REM *PS*<I>. NUMBER OF ENTRIES 

26204 REM *IN ARRAY PN. 

26203 REM **************************** 
262 1 B=0 : A=PN- 1 : FORQ=0TOA • P I < G > =Q : NEXTQ 
26220 FORQ=0TOPN*2-3STEP2 
26230 A=A+ 1 • A 1 =P I (. Q > : A2=P I < Q+ 1 > 
26240 GOSUB26350 
26250 PI <A>=PI : NEXTQ 

26260 A4=A4-1 ^ AS-PI -;A> : IFA3C0THEN RETURN 
26270 PS* < B > =PU* < A3 > B=B+ 1 
26280 PKA3>=A4 

26290 A3";=A3/2 : Q=A3";*2 : A3=PN+A3£ : IFA3>AGOTO26260 
26300 A 1 =P I < Q : A2=P I < Q+ 1 > 
263 1 I FA 1 <0THENP I =A2 GOTO26340 
26320 IFA2<0THENPI=A1 GOTO26340 
26330 GOSUB26350 
26340 P I < A3 > =P I : GOTO26290 
26350 P I =A 1 : I FPU* < A2 > <PU* <A1> THENP I =A2 
26360 RETURN 
READY. 



SORTING LARGE FILES 



Simple sorts require that the data is held in internal 
memory, usually as an array. This is feasible with small 
quantities of data, but with large files, stored on disk or 
tape, it may be impossible because of insufficient storage 
space. The solution is to use a technique utilising two data 
files, including the one holding the source file. 
One technique involves splitting the data on the input file 
(file A) into small blocks, which are then sorted and output 
to the output file(file B). The output file contains small 
sorted sets of data, if the output file is sorted a second 
time the result will be no different to the first. The reason 
for this being that the work area (the number of elements 
sorted at a time) is of a fixed size, this is overcome by 
sorting the data using work areas of different sizes. Thus 
when data is being sorted from file A to file B the work area 
may be set to the maximum size of 100 elements, but when data 
is sorted from B to A the work area is varied between 61 and 
69 elements. The work area is varied to avoid the possibility 
of the program getting in a loop which cannot be broken. If 
the work area is 100 and 60 then any file with more than 600 
records will be sorted up to the 600th record, then another 
sorted sequence would start from record 601. Since any sort 
program will stop only when the whole file is in sorted 
order, the program will in this case run indefinitely. 
The second technique also involves the use of two files, one 
is the master data file and the second is a short transaction 
file. Data is never input directly to the master file, it is 
instead input to the transaction file. Since the transaction 
file is short, probably no more than 100 records, it can be 
easily sorted in memory. The sorted transaction file is then 
merged with the much larger master file, each record in the 
transaction file being put in its correct position. This 
technique of sorting a transaction file, then merging it with 
the master file, is much faster than sorting the entire 
master file. 



FILESORT 



i his is not a subroutine, but a complete program which can be 
used as a file sort utilitv within a suite of programs. It 
can be used to sort a complete master file, or to sort a 
transaction file (the purpose for which it was designed). The 
input file which in the program is given the name "UNSORTED" 
is on disk drive 1, after the sort procedure this file is 
replaced by the output file "SORTED" also on drive 1. 
Variables initialised at the beginning of the program allow 
one to select the sort key start position and the sort key 
length, where the sort key is that part of the record which 
is to be sorted. Variables also set up at the beginning of 



the program, determine the maximum number of records which 
can be sorted in core. These values depend on the size of 
machine and the length of each record, and must be calculated 
for each application. The sequential disk file to be sorted 
will consist of an indeterminate number of fixed length 
records (where each record is a string of less than 80 
bytes). The last record on the file will be a terminator 
record containing a string of "Z"s at least four characters 
long. The time taken to sort a file is obviously dependent on 
the number of records in the file, it is preferable to keep 
transaction files fairly small. 

Since this program is designed to be part of a program suite, 
line 1990 which terminates the program incorporates the 
commands to chain the program back to a menu program (or the 
next program in the suite). The poke values should be set to 
the values of locations 42 and 43 when the menu program is 
loaded (these two locations show the amount of memory 
occupied by a program), the program chained from the sort is 
here called "MENU". For further explanation on program 
chaining see section on menus (p. 129). 



Parameters used: 



MX - number of records which can be sorted in core 

A$(MX+2)- sort table A 

B$(MX) - sort table B 

SKSP - sort key start position 

KLN - sort key length 

IPFILE$ - input file name 

OPFILE$ - output file name 



FILEMERGE 



This program is intended for use with a sorted transaction 
file ("SORT") produced by the file sort program "Filesort". 
The transaction file is merged with the master file 
("MASTER") to create a new master file. The program requires 
a temporary copy of the master file (called "DUMMY"), so 
sufficient disk space should be available for this. Like the 
transaction file the master file has an indeterminate number 
of records, and is terminated by a record consisting of a 
string of four "Z"s. During the merge the number of records 
on both the transaction file and the master file are 
displayed on the screen. Full error checking is incorporated, 
if there is any discrepancy the merge may be aborted prior to 
deletion of the original files. As with Filesort this program 
is intended to be part of a suite of programs each chained to 
a menu; line 1150 performs this chaining back to the program 
"MENU". 



Parameters used: 



No input parameters are required by this program. 

NOTE: since no records are directly input to the master file, 
the file must be created when the system is first set up. 
This requires a single terminator record ("ZZZZ") to be 
written to the file. The system can now be run and further 
records will be automatically added to the master file. 
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tr'.r ,yc -'» w - "-' i>t SORTED TWF" nfi r, i ™ C1 
lew© REM #-ED IN RATi-uirc ^ WILL BE S0P1 
1050 REM ** EfiCH H p T J b c , "MX" RECORDS 

H00 REM *copied mT^ R it*p WILL BE 
1110 REM *TWO WOPK F?i Sft c E ILE 0N DISK". 
1120 REM *OUTPUT a ftPF E n,^" E - USEr ' ™- 
H30 REM *mhen fiLL £Sr£K D RL ™NRTELV. 
1140 REM *SORTED THE ^'-^ BEEN 
1150 REM *FILES RRF M fJ R ^ bb ' 0N THE WORK 
1160 REM •S0OTa^5?f? l J° F0RM THE 

if-60 REM* OPEN Spu? S,*i************ 

370 REM*RECORDS rN U " B » *\ t -? T ? RE 
REM* IN »fl» uuFMT-f, R EVS+TflGS 
1390 REM*END Of'fi FULL °* 

1 466 REM*******i*5:*u. +oTR* N,> , 3 > : B* -:N = T P* 

}47» **************** "* 

1 520 FOR I = I T0 1 fi • --v t •• ^ ' H * ' ; N+ 2 > = " 



.}580 REM*BE SORTED tV S ? EC0RDS TO 
1590 REM*TfiBLE "B" rl THEN COPY 

1600 REM*FILE "filnpiS ; ?|QUENCE TO 
1610 REM*EOF THFN* Pno t , JR " fi SORT». IF 
If?? ^'EM*FROM TABLE ^R" t fr R '-T c E *LE 
Iww REM*ONCE ELSE MFRrp »r « USEB 
1-40 REM*FILES "rIo^'I "BSqrt"^ 
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1 f^fi REM*************************** 

< Zfh I FSO= 1 fiNBLEFT* < I R* , 4 > =24*THENLF= 1 4 : Sfl= 1 4 : FL*=OP*+ " , S , W " = GOTO 1710 

1^70 LF=3: IFS0T/2=INT<S0T/2>THENLF=4 

1 gS0 SFl=LF : I FS0T>2THEN 1 730 

1*90 F*="Fl" : IFS0T=2THENF*="B" 

1 700 FL*=F*+ " SORTFL , SEQ , WRITE" 

1710 OPENLF > 8 , Sfl > " @ 1 : " +FL* 

1 720 I FST>0THENGOSUB2fc"30 

1730 FOR 1 = 1 TON . iir _ ijT 

1740 PR I NT#LF , B* < VflL < R I GHT* < fi* < I + 1 > , 3 > > > ; CHR* 1 1 a J ; : NEXT 

1 7=10 REM*************************** 

17^0 REM* IF SORT=l & EOF THEN END. IF 

1770 REM*NOT EOF THEN SORT NEXT SET 

1780 REM* OF RECORDS ELSE MERGE FILES 

1 790 REM****************************** 

1 800 I FLEFT* < I R* , 4 > O24*THENN=0 : GOTO 1 420 

1810 IFLF=14THEN1920 

1 820 PR I NT#3 > 24$ ; CHR* < 13>; : I FST>8THENG0SUB2b3W 

1830 CLOSES •' IFST>0THENGOSUB2630 

1 840 PR I NT#4 , 24* ; CHR* < 1 3 >i ■ I FST>0THENGOSUB2630 

iS50 CL0SE4 : IFST>0THENGOSUB2630 

lftfifl REM*************************** 

1870 REM* ENTER MERGE S/R TO FORM 

1880 REM* OUTPUT FILE 

1 890 REM*************************** 

1900 GOSUB2740 

1910 GOTO 1970 

1 ^20 REM*************************** 

1930 REM*flLL RECORDS ON OUTPUT FILE 

1940 REM*************************** 

1 9^0 PR I NT# 1 4 , 24* ; CHR* < 1 3 > ; : I FST>0THENGOSUB263U 

1 9£0 CLOSE 14^1 FST>0THENGOSUB2630 

1970 PRINT":MWM>»»»iMSEND OF SORT" 

1980 pRINT":?l«2NO. OF RECORDS SORTED = ";RECs 

1 990 P0KE042 ,10: POKE043 , 36 : CLR = LOAD " MENU " , 8 

2000 P=l :M=18 

2010 PRINT"*"; 

2020 L=2 

2030 R=N+1 

2040 I FR-L<MTHEN24 1 

2050 I=L 

2060 J=R 

2070 K*=H*':.'L;' 

2080 I FK*>=Fl* < J > THEN2 1 1 

2090 J=J-1 

2100 GOTO2080 

2110 IFJ>ITHEN2140 

2120 H*<I>=K* 

2130 GOTO2270 

2140 fl*<I>=fl*<J> 

2150 1=1+1 

21fift IFfl*(I;'>=K*THEN2190 
2170 1=1+1 
2180 GOTO2160 
2190 REM 

2200 IFJ>ITHEN2240 
2210 fi*<J>=K* 
2220 I=J 
2230 GOTO2270 
2240 fl*(: J>=fi*n> 
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2258 J=J-1 

2266 GOTO2080 

2270 IFR-KI-LTHEN2340 

2280 S<P>=R 

2290 P=P+1 

2300 S<P>=I+1 

2310 P=P+1 

2320 R=I-1 

2330 GOTO2040 

2340 S<P>=I-1 

2350 P=P+1 

2360 S<P>=L 

2370 P=P+1 

2380 L=I+1 

2396 GOTO2040 

2400 REM STRAIGHT INSERT 

2410 J=L 

2420 J=J+1 

2430 IFJ>RTHEN2520 

2440 K*=A$CJ> 

2450 I=J-1 

2460 I FA$ < I > <=K$THEN2500 

2470 A*a+i>=A$a> 

2480 1=1-1 
2490 GOTO2460 
2500 A*<I+1>=K$ 
2510 GOTO2420 
2520 IFP=1THEN2620 
2530 P=P-1 
2540 L=S<P> 
2550 F-P-l 
2560 R=S<P> 
2570 GGTG2040 

2580 REM*************************** 
2590 REM*TRBLE "A" SORTED RETURN TO 
2600 REM*nfiIN PATH OF PROGRAM 
26 1 REM** * ************** * * * * ****** 

2620 RETURN 

2630 I NPUT# 1 , R 1 $ > R2$ , R3* , R4* 
2640 I F VAL <R1* > =0THENRETLIRN 
2650 PRINT" 5© ISC ERROR W" 
2660 PRINT" SERROR NO ";R1* 
2670 PRINT" SERROR MSG •' ";R2* 
2680 PR I NT " 3PARAMETER 1 ";R3* 
2690 PR I NT "PARAMETER 2 ";R4* 
2700 PR I NT "MM" 

2710 I NPUT " 3CONT I NUE ? < V/N > *lil" ; VN* = I F VN$= " V " THENRETURN 
2720 I FYN$<> " N " THEN27 1 
2730 END 

2740 REM**************************** 
2750 REM*MERGE RECORDS USING 4 DISC 
2760 REM*FILES <2 IN 2 OUT). ON LAST 
2770 REM*PASS WRITE TO OUTPUT FILE 
2780 REM**************************** 

2790 T 1 $= " SORTFL , S , W " : T2*= " SORTFL >S>R" '■ NP= I NT < < SO+ 1 ) /2 > 
2800 PRINT"S*3TART OF MERGEMM" 

28 1 F1$="A" : F2*= "E" : F3*= " C " : F4$= "D" : LF=5 • G0T02870 
2820 WA*=F If - Fl $=F3* ■ F3*=WA$ WA$=F2* 
2825 F2*=F4$ : F4*=WA* : LF=5 : PR I NT " * " .: 
2830 REM***************************** 



2840 REM*OPEN 2 INPUT FILES & 1 OR 2 
2850 REM*OUTPUT FILES 

2366 REM***************************** 

2S70 0PEN3,8,3,F1*+T2*: IFST>0THENGOSUB2*3fl 
28S0 0PEN4 ,8,4, F2*+T2* : I FST>0THENGOSUB263fl 
2838 I FNF- 1 THENF3*=0PF I LE* T 1 * = " , SEQ , WR I TE " 
2900 0PEN5,8,5,F3*+T1*: IFST>0THENGOSUB2630 
2910 IFNF-1THEN2930 

292U OPENS , 8 , 6 , F4*+T 1* : I FST>0THENGOSUB2630 
2930 REM******************************* 

2940 REM*READ FILES 3*4 &FORM FILES 
2350 REM*5.fc6 < MERGED > 

2966 REM******************************* 

2970 I F I 3* =Z4$THEN3000 

2980 INPUT#3, 13* •■ IFST>0THENGOSUB2630 

2990 K3* =M 1B$(. 13*, SKSP , KLN ) 

3000 I F I 4*=Z4*THENGOTG3030 

30 1 O I NPUT#4 , I 4* ■ I FST>0THENGOSUB2630 

3020 K4*=M I D* < 1 4* , SKSP , KLN > 

3030 I F I 3*= I 4*AND I 3*=24*THENGOTO3330 

3W40 IFI3*>I4*THEN3230 

3050 REM**************************** 

3060 REM*AS I3*<=14* THEN W/O 13* TO 

3070 REM*LhST OUTPUT FILE. IF I3*<LAST 

3080 REM*OUTPUT RECORD THEN CHANGE 

3090 REM*GUTPUT FILES ( CHANGE "LF" 

3 1 00 REM**************************** 

3110 IFLF=6THEN3210 

3120 IFK3*<K5*THEN3160 

3 1 30 PR INT#5, 13* : IFST>0THENGOSUE2630 

3 1 40 K5*=K3* : I NPUT#3 , 1 3* - I FST>0THENGOSUB2630 

3 1 50 K3*=M I D* 1 3* , SKSP , KLN > : GOTO3030 

3160 REM** START NEW STRING ON FILE 6** 

3170 LF=6 

3180 PRINT#6, 13$: IFST>0THENGOSUE2630 

3 1 90 K6*=K3* : I NPUT#3 , 13*: I FST>0THENGOSUB263O 

320O K3*=M I D* (I 3* , SKSP , KLN ) : GOTO303O 

3210 IFK3*<K6*THENLF=5 : GOTO3130 

3 2 2 G T 3 i g 

3230 REM**** WRITE 14* TO OUTPUT ** 

3248 IFLF=6THEN3310 

3250 IFK4*:::K5*THEN32S0 

3260 PRIHT#5, 14*: IFST>0THENGOSUB2630 

32 1 y K5*=K4* : GGTO3O00 

3230 REM**** SWITCH OUTPUT FILES *** 

3290 LF=6 : PR I NT#6 , I 4* : I FST>0THENGOSUB263O 

3300 Kfe*=K4* : GOTO3000 

33 1 I FK4*-CK6*THENLF=5 : G0T03268 

3 3 2 y ij T 3 2 9 

3330 REM**************************** 

3340 REM* END OF BOTH FILES. SCRATCH 
3350 REM* INPUT FILES & W/O EOF 
3360 REM*RECORDS ON OUT PUT FILES 
3370 REM**************************** 
3330 CLOSES' : IFST>0THENGOSUB2630 
3390 CL0SE4: IFST>0THENGOSUB2630 

3400 PP I NT# 1 O , " S : " +F 1 *+ " SORTFL . " +F2*+ " SORTFL " : I FST>0THENGOSUB2630 
34 1 O PR I NT#5 , Z4* : I FST>0THENGOSUB2630 
3420 CLOSES: I FST>0THENGOSUB2630 
3430 I FNF - 1 THENRETURN 
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446 PR: I NT#6 , Z4$ : I FST>0THENGOSUB2630 
3458 CLOSES: IFST>0THENGOSUB2b30 
3460 NF-NP-1 
3470 GOTO2S20 
S'ERDV. 



ct 

006 REM ***************************** f- 

001 REM *PRGGRAM TO MERGE A SORTED SEQUENTIAL 

002 REM *TRANSACT I ON FILE WITH A MASTER 

003 REM *DATfl BASE SEQUENTIAL FILE. ALL DATA 

004 REM *FILES ARE ON DISK DRIVE ONE. THE 

005 REM *PROGRAM PRINTS CONTROL TOTALS OF 

006 REM *RECORD NUMBERS IN BOTH FILES. 
003 REM ***************************** 
020 REM 

036 REM 
040 REM 

100 REM *** OPEN INPUT FILE *** 
102 REM 

1 04 0PEN2 , 8 .. 2 , " 1 = SORTED , SEQ , READ " 
1 06 I FST>0THEN 1 392 
108 REM 

110 REM *** OPEN OLD MASTER FILE *** 
112 REM 

1 1 4 OPENS , 8 , 3 , " 1 •• MASTER , SEQ , READ " 
116 IFST>0THEN1392 
118 REM 

120 REM *** OPEN NEW MASTER FILE ft* 
122 REM 

. 1 24 0PEN4 , 8 , 4 , " @ 1 • DUMMV , SEQ , WR I TE " 
126 IFST>0THEN1392 
128 REM 

130 REM *** INITIALISE CONTROL TOTS *** 
132 REM 
134 BMB=0 
136 TMB=S 
138 CMB=0 

140 PRINTMr-TIASTER FILE UPDATE PROGRAM" 
.142 REM 

144 REM *** READ TRANSACTION*** 

146 REM 

148 GOSUB1310 

150 REM 

152 REM *** READ OLD MASTER*** 
154 REM 

156 G0SUB1346 
158 REM 

160 REM *** END OF UPDATE REACHED ? *** 
162 REM 

164 IFLEFT$<;BREC*, 3 > = " ZZ2 " ANDLEFT$ (. TREC$ .■ 3 > = " ZZZ " THEN 1 206 

.166 REM 

168 REM *** COMPARE OLD O TRANS *** 

.170 REM 

1 72 I FLEFT* < BREC* , 1 6 > <LEFT$ < TREC$ , 1 6 > THEN 1 1 90 

,174 REM 

.176 REM *** TRANS < OLD - INSERT *** 
178 REM 

.180 PR I NT#4 .. TREC$ CHRf < 1 3 > ; 
,182 IFST>0THEN1392 
,184 CMB=CMB+1 
1 86 GOSUB 131 
.188 GOTO 1164 
.130 REM 
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1192 REM **$ OLD < TRANS - CflRRV FWD *** 
1194 REM 

1196 PRINT#4,BREC* ;CHR*<13? ; 

11 98 IFST>0THEN1392 

1280 CMB=CMB+1 

1202 G0SUB1346 

1284 GOTO 1164 

1286 REM 

1208 REM *** END OF UPDATE *## 
1210 REM 

1212 PR I NT#4 , " ZZZZZ2ZZZZZZZZZZZZZZ2 " ; f -HR* < 1 3 ; 
1214 CL0SE4 

1216 IFST>8THEN1392 
1218 REM 

1220 REM *** IHSPLAV CONTROLS *** 
1222 REM 

1224 PR I NT " PIASTER FILE UPDATE" 
1226 PRINT"MMDLD MASTER FILE RECORDS " ; BMB 
1228 PRINT"WWTRflNSflCTION RECORDS ' " ; TMB 
1230 PRINT"MMNEW MASTER FILE RECORDS " ; r ME 
1 232 D I SC=BMB+TMB-CMB 

1234 IFDISC>0THENPRINT''MMSWfiRNING RECORD DI:-.f:REFENr:VB" ; DI 
1236 REM 

1238 REM *** CHECK UPDATE O.K. *** 
1240 REM 

1242 PRINT" IF UPDATE IS fi.K. " 
1244 PR I NT "ENTER C TO CONTINUE " ; 
1 246 GETA* : I FA$= " " THEN 1 246 
1248 IFA*="C" THEN 1274 

1250 INPUT "MDO VOU WISH TO CANCEL THE UPDATE #" ; 
1252 IFA*0"V"THEN1242 
1254 REM 

1256 REM *** SCRATCH OUTPUT MASTER *** 

1258 REM 

1260 OPEN 1,8, 15 

1262 IFST>0THEN1392 

1 264 PR I NT# 1 , " S 1 , DUMMV " 

1 266 I FST>0THEN 1 392 

1268 CLOSE 1 

1 2 70 I FST>0THEN 1 392 

1272 GOTO 1308 

1274 REM 

1276 REM *** SCRATCH INPUT FILE:-; *** 

1278 REM *** RENAME OUTPUT MASTER 

1280 REM 

1282 OPEN1 ,8, 15 

1284 IFST>0THEN1392 

1 286 PR I NT# 1 , " S 1 : UNSORTED " 

1 288 PR I NT# 1 , " S 1 : SORTED " 

1 290 PR I NT# 1 , " S 1 • MAS TER " 

1 292 PR I NT# 1 , " R 1 : MASTER= 1 : Di IMMV " 

1294 IFST>0THEN1392 

1296 CLOSE 1 

1298 IFST>0THEN1392 

1300 CLOSES 

1302 REM 

1304 REM *** END OF RUN *** 

1306 REM 

1 388 P0KE42 , 810: P0KE43 , 36 : CLR : LOAD " : MENI I " . fi 
1310 REM 
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1312 REM *** READ TRANSACTION FILE *** 
1314 REM 

1 3 1 6 I FLEFTf C TREC* , 3 > = " ZZZ " THEN RETURN 

1313 INPUT#2,TRECt 

1320 I FLEFT* i TREC$ .. 3 > = " ZZZ " THEN 1 332 
1322 IFST>0THEN1332 
1324 TM£=TMB+1 

1328 PR I NT " SSflUlMflJTRANSACT I ON RECORDS " ; TMB 
1338 RETURN 
1332 REM 

1334 REM *** END OF FILE ENCOUNTERED *** 
133b REM 

1335 CL0SE2 

1340 IFST>0THEN1392 

1342 PRINT"MWWMiSMEND OF TRANSACTIONS" 
1344 RETURN 
1346 REM 

1348 REM *** READ OLD MASTER FILE *** 
1350 REM 

1 352 I FLEFT* < BREC* , 3 ) = " ZZZ " THEN RETURN 
1354 INPUT#3,BREC* 

1 356 I FLEFT$ ( BREC* .- 3) = "ZZZ" THEN 1 366 
1358 BMB=BMB+ 1 

1362 PRINT"iSPMi!li!li!li!li9JLD MASTER FILE RECORDS " ; BMB 
1364 RETURN 
1366 REM 

1368 REM *** END OF FILE ENCOUNTERED *** 

1370 REM 

1372 CLOSES 

1374 IFST>0THEN1332 

1376 PRINT^K&MPMPMfiEND OF OLD MASTER FILE" 
1378 RETURN 
1380 REM 

1382 REM *** FATAL ERROR *** 
13:4 REM 

1386 PRINT"3?M?l!!M!!l«!l^ ERRORS " ; MESS$ 

1 338 GETA* • I FA*= " " THEN 1 333 
1330 STOP 
1392 REM 

1334 REM *** DISC ERROR *** 

1336 REM 
1338 CLOSE 1 
1400 OPEN! ,8, 15 

1 402 I NPUT# 1 , A* , B$ , C* .• D* 
1 404 IFA*= "00"THENRETURN 

1406 PR I ( L 4T , ^^MeftI^I«eI^!Ifi!!Ii!I«^^ftIt■I^>OTElEl I Si": ERRORS " 
1 408 PR I NT A* .; " " .; E* ; " " ; C$ .; D* 
1416 GET A*: IFA*=""THEN1410 
1412 STOP 
READV . 
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FAST MACHINE CODE SORT 



This is a package comprising a 6502 machine code routine to 
perform a bubblesort on any specified one dimensional string 
array. The Basic subroutines allow this machine code program 
to be demonstrated on a specific array, these routines can be 
easily adapted to meet the users own requirements. The Basic 
subroutines provided include routines to input an array, sort 
it, add and delete strings, and locate strings using a binary 
chop search strategy. 

The machine code sort searches the list of arrays until an 
array is found whose name matches a name previously stored in 
locations CA and CB. There are various failure exits: array 
not found (1), more than one dimension (2), and too few 
elements to sort (3). Once the named array is found the 
bubble sort commences. The pointers to each adjacent pair of 
strings are extracted and the strings compared. If they are 
in lexically incorrect order then the order of the pointers 
is reversed. r 

0,1 - 1,2 - 2,3 N-1,N 

This is performed up to N times in the inner loop ILOOP. 
every time a swap is made FLAG is set. If at the end of the 
inner loop FLAG is still clear, then the list is fully sorted 
and the routine terminates. FLAG is cleared at the beginning 
ot each of the N iterations around the outer loop OLOOP. This 
n U o 6 ^D 10 k? P • 15 re P eated until the list has been ordered by 
?-i r,^ timeS ' Where there are N elements in the array, or 
until FLAG remains clear. The effect of the inner loop is to 
cause the lexically largest item in the array to move to the 
top of the array. Because of this the number of comparisons 
in the inner loop is reduced by one on each iteration of the 
outer loop. 



OLOOP 



ILOOP 



When each string is being tested with its neighbour the 
corresponding character of each is compared, the first 
character of string one, with the first of string two, the 
second, third and so on. The first non-equal pair defines the 
lexical order. If they are equal, but of unequal length,such 
as, "there" and "therefore", the longer one is taken as 
lexically greater. Any null string (zero length, "") is taken 
as lexically infinite. The result of the sort is to leave the 
lexically smallest in element zero of the array, the non-null 
strings in ascending order; all the remaining elements are 
the null strings. 

A more detailed description of the machine code program: 



1st character of array name in CA, top bit cleared. 
2nd character of array name in CB, top bit set. If array name 
is only 1 character long then CB = 1 28. 
The start of the array list is stored in 127,126, saved in 
BASE 

LOCATE: If the first character of the array name is "$" the 
array list is searched. E R R O R = 1 return (fail) 

MORE A: If CA and CB both equal the array name, the array is 
found, goto AFOUND. 



NEXT A: TEMP is loaded with the offset to next array 
descriptor block, TEMP is added to the current value of BASE, 
so that it points to the next array block. Goto LOCATE for 
next array. 

AFOUND: Check array dimension equals one, if not ERROR = 2 
and return (fail). 

DOSORT: NOOFE is loaded with the number of elements in the 
array. If there are less than two elements then the array is 
unsortable, ERROR=3, return (fail). 

INIT: NOOFE is transfered to NOOFC. 

The outer loop: 

OLOOP: Clear FLAG and COUNT. Decrement NOOFC, search to N-l 
elements. If NOOFC is zero the array is sorted - return 
(success). 

SPAIR: PAIR is set to point to the first byte of the block 
of six that contains the length and string pointers of the 
two strings to be compared. 



The inner loop: 



ILOOP: LEN1 set to length of first string. STR1 points to 
character in first string. LEN2 set to length of second 
string. STR2 points to character in second string. If LEN2 is 
zero then goto NOSWAP, because second string is greater or 
equal to first. If LEN1 is zero then goto SWAP, 1st string is 
null, second is not, so swap them. 

COM: Compare each character of the two strings in turn, 

using the Y register. If char(strl) < char(str2) then goto 
SWAP. 

NEXTCH: Increment Y register for next pair of characters. If 
it has overflowed then goto NOSWAP. 

CKL2: If Y>LEN1 or Y>LEN2 then the longer is lexically 
greater, test by goto LENEO. Otherwise compare next two 
characters back at COM. 

LENEQ: If LEN1<=LEN2 then goto NOSWAP. 

SWAP: Exchange length and string pointers in descriptor 
block: Length of string one set to LEN2. Pointer to string 
one set to STR2. Length of string two set to LEN1. Pointer to 
string two set to STR1. The exchange flag, FLAG, is set. 

NOSWAP: Add one to COUNT, the number of pairs compared so 
far. 

Ol: If COUNT is not equal to NOOFC the inner loop is 

unfinished, goto PLUS3. If they are equal the inner loop is 
finished. If FLAG is still zero then no swaps were made and 
the sort is finished, return (success). Otherwise goto OLOOP 
to continue sorting. 

PLUS3: Add three to PAIR to compare next pair of strings, 
goto ILOOP. 



The Basic subroutines: 



The Basic subroutines associated with the machine code sort 
program are intended to demonstrate its use. Throughout the 
Basic program all the variables used begin with "Z", anv 
subroutine based around these routines should take this into 
account (Z1,ZB,ZM,ZN,ZP,ZT,ZA$,7I$,ZS$(),ZT$ and ZY$). Only a 
few of these are global, retaining useful values between 
subroutine calls, see below. All the examples assume the 
array to be manipulated is ZS$(); besides this there are only 
three important variables: 

21 - The base address of the machine code routines, all 
references to the machine code are made relative to this 
location. (480). 



ZN - The number of elements (0 to ZN) in the default arrav 
ZS$(). (490,510). 

ZS$0- The default array. To change this all references to 
ZS$() must be altered, see above, and statements 530-540 must 
be changed, or subroutine 400 evoked. 

The Program. 

Statement 1 lowers the top of memory to accomodate a 
machine code program at the top of RAM. 

Statement 2 is the start address of the machine code 
program in decimal. 

Statements 3-71 contain the machine code program in 
hexadecimal. 

Statements 200-320 are the machine code loader. 
Statement 480 sets Zl, alter if the machine code is 
relocated. 

Statement 510 dimensions the various arrays that may be 

used. 

Statements 530-540 default the array name "ZS" in 
locations CA and CB. 

Statements 560-640, each of the demonstration 
subroutines mav be called from a menu option pad, which is 
printed by subroutine 1000. The user types a digit which 
directs the system to one of the routines via a computed goto 
subroutine. 



The option 'menu': 



option 

1 - Print the 'help' catalogue (1000) 

2 - Input strings into the default array (2000) 

3 - Print strings in the default array (3000) 

4 - Change the sorted array name (4000) 

5 - Sort the named arrav, default to ZS$(), (4500) 

6 - Add a new string to the default arrav (5000) 

7 - Delete a string from the default array (5500) 

8 - Search for named string in default array (6000) 

After performing each subroutine call, the user is prompted 
for his next choice. If in doubt "1" should be tvped. 



The subroutines. 



1000 "MS3" 



The 'helo' option 'menu', clears the screen and prints the 

option list as previously described. 



2000 "MS4 



Input strings into the default array. 

a) All the strings in the default array are set to zero 
length (2060-2100). 



b) A loop is entered (2140-2230), the user enters one string 
at a time (2190), prompted by the array number being filled 
(2180). At any time the user may leave the routine by typing 
a single "*", followed by the return key (2210). If at any 
time the available free memory of the machine falls below 256 
bytes, the user is advised before the string prompt, but no 
further action is taken to protect the program against 
running out of memory (2160-2170). 

c) When the array is full the routine returns (2240). If the 
input was terminated prematurely the last input element is 
tidied (2250) and this routine returns (2270). 

3000 "MS5" 

Print the string in the default array on the PET screen. 

a) A loop (3020-3060) is entered to print each of the array 
strings in turn (3044). If the array entry was empty a blank 
line is not printed (3030). ZM, previously set to zero, is a 
tally of non-null strings that have been printed (3050). 

b) The value of ZM is printed (3070), and the routine returns 
(3080). 

4000 "MS6" 

A subroutine to change the name of the array searched for and 
sorted by the machine code routine, pokes into locations CA 
and CB. 

a) The name of the new array is requested (4010). 

b) Its last character must be "$" for string array (4020), if 
it is not, a message is generated (4040) and a return 
effected (4050). 

c) The first character of the array name is extracted (4080) 
and checked as being alphabetic (4090), if it is not, a 
message is printed (4100) and the code requests the user to 
retype the string at a) (4110). If it is all right, the 
numeric value of the letter is poked into CA (4120). If there 
is no second character in the array name (4130), the routine 
returns, CB having previously been cleared (4060). 

d) The second character is extracted (4150), checked 
(4160-4180)as before, and if alphabetic poked into CB (4190) 
and the routine left (4200). 

4500 "MS7" 

A subroutine to call the machine code bubble sort routine. 

a) The name of the array to be sorted is printed by peeking 
into CA and CB (4520). 

b) The machine code sort routine is called at Zl + 14 (4530) 

c) The ERROR is read by peeking Zl+2 (4540). 

d) An appropriate message is generated if the sort was 
successful (4550), or failed (4560-4590), before the routine 
returns (4600). 



5000 "M.S8" 



A subroutine to add a string into the default array. 

a) The most probable place for an empty string (particularly 
after sorting) is the last position in the array. This is 
checked (5020). If it is not the user is invited to sort the 
array (5040), but not inside the routine, return at (5050). 
If this routine fails here after sorting, then the array is 
full. 

b) A check is made on free space as in routine 2000 (5070), 
and a warning made if it is low (5080). 

c) The user enters the new string (5100). Which is placed in 
the top array element. 

d) The sort routine is called automatically (5140), before 
returning (5160). 

5500 "MS9" 

A subroutine to delete a string from the default array. 

a) The user is asked to give the element number of the string 
to be erased (5520), if this is out of range (5530) a message 
is printed (5540) and the user may try again (5550). 

b) If the string is already empty (5570), a message is 
printed ( 5 5 9 0) and a return made ( 5 6 0). 

c) The selected string is printed (5620), to remind the user 
what is about to be erased. If the string is to be removed, 
the user types "Y" in response to (5640). 

d) The sort routine is called automatically to tidy up the 
array (5690) before returning (5700-5710). 

6000 "MS10" 

A subroutine to search a sorted array for a target string 
input by the user; prints element number(s) and strings 
matched within the array, if any are found; uses the binary 
chop search strategy. 

a) Sort the array - just to be sure (6020). 

b) User inouts target string (6030). 

c) User selects partial match ("Y") or not ("N") (6040). The 
partial match only characters in strings stored in the array 
to the length of the target string (ZT$). If the target 
string were "THERE", it would find all strings beginning with 
'THERE", for instance "THERE", "THEREBY", "THEREFORE" etc. If 
partial match is not selected the match is for equality only, 
i.e. "THERE" only. In neither case would "THE" be matched. 

d) ZT is set to the bottom of the array - (6070), and ZB to 
the top (6080). 

e) ZM is set to be half way between them, bisecting the array 
(6090). 

f) ZI$ is the ZMth string (6110). 

g) If ZI$ matches the target string, the search succeeds, 
goto step (j) to check forward and backward for other strings 
that match the target. 

h) If ZM equals ZT then the array has been searched but no 



match has been successful (6170). The routine returns 
printing a failure message (6460-6480). 
i) If the target is greater than the string at the bisect 
point, the bottom of the search space is set to ZM (6190), 
otherwise the top is set to ZM (6200). The search space for 
the routine is successively halved and mav continue from step 
(e) (6210). 

j) Once a string is found, there may be others adjacent to it 
that will also match. Statements (6220-6300) step back 
through the array from ZM until the match fails (6280). ZB 
contains the lowest location that matched, 
k) Similarly statements (6310-6390) check forwards. ZT 
contains the highest location that matched. 
1) The element number and the string contained in that 
element of the array which matched with the target are 
printed in turn (6400-6440) before returning (6450). 
Subroutine 6600 truncates the length of the string in the 
array, if a partial match is wanted, to the length of the 
target string. It must be called before any match is 
attempted (6130,6270 and 6360) 
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.INE# LG 



CODE 



LINE 



000 1 

0802 

0003 

0884 

0005 
8006 

8087 
8088 
8889 
88 1 8 
8811 
8812 
88 1 3 
8814 
8815 
88 1 6 
8017 
00 1 8 

0013 
0020 

882 1 
6822 
8823 
8624 
8825 
8026 
0827 
0028 
0029 

0030 

603 1 
0032 
0033 
8034 
8835 
8836 
6637 
6633 
0633 
8846 
8841 
0042 
0043 
0644 
6045 
0046 
0047 
0048 
0043 
8858 
8851 
8852 
8853 
8054 
8855 



fc.i0fc.i8 
8888 
8888 
8888 
6888 
8888 
8888 
8888 
8886 
8866 
8888 
8888 
8888 
8888 
8854 
8656 
0058 

885A 

885C 

885( 

885( 

885( 

7E2C 

7E2( 

7E2C 

7E2C 

7E2D 

7E2E 

7E2F 

7E31 

7E33 

7E-J4 

— • i— - cr 
f C-jJ 

7E37 
7E35 
7E3A 
7E3R 
7E3A 
7E3A 
7l3h 
7E 

7E3C 
TE3D 
7E3E 
7E3F 
7E42 

r''E44 

7E47 
7E47 
7E47 
7E47 
7E4H 
7E4C 
7E4F 
7E4F 



******************************* 

♦PROGRAM TO PERFORM LEXICAL SORT 

*OH STRING ARRflV IN PET. 

*CFi - CONTAINS FIRST LETTER 

*CE - SECOND LETTER OF STRING NAME 



SVSTEM CONSTANTS 

AS TART =44 

ZERO PAGE LOCATIONS REQUIRED 

*=84 
EASE *=*+2 
PAIR *=*+2 
3TR1 *=*+2 
STR2 *=*+2 

.; PROGRAM AND DATA AT TOP OF MEMORV 
*=32386 

. ORDINARY VARIABLES AND STORAGE 



CA 


*=*+! 


CB 


*=*+l 


ERROR 


*=*+l 


NOOFE 


*=*+2 


NOOFC 


*=*+2 


LEN1 


*=*+l 


LEN2 


*=*+l 


COUNT 


*=*+2 


TEMP 


*=*+2 


FLAG 


*=*+! 



THE CODE 
, CLEAR TOP BIT OF CA 

43 PHA 

38 TV A 

48 PHA 

8A TKA 

48 PHA 

AD 2C 7E LDA CA 

29 7F AND #."-.'81 1 1 1 1 1 1 

8D 2C 7E STA CA 

;SET TOP BIT OF CB 

AD 2D 7E LDA CB 

89 Hfi HP A #".'18888800 

8D 2D 7E STA CB 

; CLEAR ERROR FLAG 



SGRT3SRC PAGE 0002 



LINE# lOC CODE 



LINE 



y056 

0657 
0058 
0053 

0060 
0061 

0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 

0070 
0071 

0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 

0080 
0081 

0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 

0090 
0091 

0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 

0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 



7E4F 

7E4F 

7E51 

7E54 

7E54 

7E54 

7E54 

7E54 

7E56 

7E58 

7E5A 

7E5C 

7E5C 

7E5C 

7E5C 

7E5E 

7E60 

7E62 

7E64 

7E64 

7E64 

7E64 

7E66 

7E69 

7E6C 

7E6C 

7E6C 

7E6C 

7E6C 

7E6F 

7E71 

7E72 

7E74 

7E77 

7E79 

7E79 

7E79 

7E79 



A9 00 
SB 2E 7E 



7E7B 
7E7D 
7E80 
7E81 
7E83 
7E86 
7E86 
7E86 
7E86 
7E87 
7E89 
7E8C 
7E8E 
7E90 
7E93 
7E95 



A5 2C 
85 54 
fl5 2D 
85 55 



m 00 

El 54 
C9 24 
D0 08 



A9 01 
8D 2E 7E 
4C AR 7F 



CD 2C 7E 
D0 08 
CS 

El 54 
CD 2D 7E 
F0 IE 



7E 



fl0 02 
El 54 
8D 37 
C8 
El 54 
8D 38 7E 



18 

A5 54 
6D 37 7E 
85 54 
fl5 55 
6D 38 7E 
85 55 



LDA #0 
STR ERROR 

SEARCH DOWN ARRAY NAME LIST 
LOAD EASE WITH START OF ARRAYS' 

LDA ASTART 
STA EASE 
LDA ASTART+1 
STA EASE+1 

: LOCATE ARRAY NAMED IN CA & CB 



LOCATE LDV #0 

LDA (BASE>,Y 
CMP #36 
ENE MOREA 



END OF ARRAY" 
; NO 



,'ERROR 1 - ARRAY NOT FOUND 

LDA #1 

STA ERROR 
JMF RTN 

; CHECK THIS ARRAY NAME 
; AGAINST CA & CB 



MOREA CMP CA 

ENE NE.HTA 
I NY 

LDA <BASE>,Y 
CMP CB 
EEQ AFOUNB 



1ST CHAR 
i NEKT CHAR 

THIS ARRAY 



; CHECK NEXT ARRAY IN TABLE. 
..STORE RELATIVE OFFSET IN TEMP 

NEXT A LDV #2 

LDA •:.'BASE>,V 

STA TEMP 
I NY 

lda <:base>,y 

STA TEMP+1 
ADD RELATIVE OFFSET TO BASE 
CLC 

LDA EASE 
ADC TEMP 
STA BASE 
LDA EASE+1 
ADC TEMP+1 
STA BASE+1 
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S0RT3SRC PAGE 0003 

LINE* LOC CODE LINE 



11 
12 
13 
14 
15 
16 
17 
18 
13 
20 
21 



24 

■-iC 

2b 



30 

31 



34 

•-.cr 

3 b 

■2' ( 



40 
41 
42 
43 
44 
45 
46 
47 

.■i ~, 

HO 

43 
58 
51 

CT--1 
^_ 

nr - 

54 

crcr 

-J 

56 



61 
62 
63 
64 



1 65 



7E35 
7E35 
7E35 
7E37 
7E37 
7E37 
7E37 
7E37 
7E33 
7E3B 
7E3D 
7E3F 
7E3F 
7E3F 
7E3F 
7EA1 
7EA4 
7EA7 
7EA7 
7EA7 
7EA7 
7EA7 
7EA3 
7EFfE 
7EflE 
7EAF 
7EE1 
7EE4 
7EE4 
7EE4 
7EE4 
7EE4 
7EE7 
7EE3 
7EEC 
7EEE 
7EC0 
7EC6 
7EC6 
7EC0 
7EC2 
7EC5 
7ECS 
7ECS 
7ECS 

-?r-i--< 
i C O 

7ECE 
7ECE 
7ED1 
7ED4 
7ED4 
7ED4 
7ED4 
7ED4 
7ED4 



yu 



AO 04 

El 54 
C3 01 
F0 08 



A3 02 
8D 2E 7E 
4C AA 7F 



H0 05 
El 54 

3D 30 7E 

C8 

El 54 
3D 2F 7E 



HE 30 7E 
D0 0F 
HH 2F 7E 
C3 02 
E0 08 



SD 2E 7E 
4C HH 7F 



HH 2F 7E 
Sli 31 7E 



fill 

sn 



30 7E 
32 7E 



..' NEXT ARRAY 

BCC LOCATE 

'; NAMED ARRAY FOUND 

; CHECK ONLV ONE DIMENSION 

AFOUND LDV #4 

LDA '::EASE>,V 
CMP #1 
EEQ DOSORT 

; ERROR 2 - INCORRECT DIMENSION 

LDA #2 
ST A ERROR 
,TMP RTN 



DO BUBBLE SORT ON ARRAY 

SAVE NUMBER OF ELEMENTS IN NOOFE 



DOSORT LDV #5 

LDA <:base;>,v 
STA NOOFE+1 
I NY 

LDA c:base>,v 

STA NOOFE 



CHECK THERE ARE 2 OR MORE 
ELEMENTS IN ORDER 



My wo 



LDX NOOFE+1 
ENE INIT 
LDA NOOFE 
CMP #2 
BCS INIT 



ERROR 3 - TOO FEW ELEMENTS 

LDA #3 
STA ERROR 
JMP RTN 

JET UP SORT PARAMETERS 

INIT LDA NOOFE 
STA NOOFC 
LDA NOOFE+1 
STA NOOFC+1 

; OUTER SORT LOOP 

.;I = 1 TO NOOFE- 1 

; CLEAR TO SWAP FLAGS 

OLOOP LDA #0 



; MORE THAN 255 
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S0RT3SRC PAGE 0904 

LINE* LOG CODE LI HE 



016b 


7ED6 


3D 


39 


7E 




STh FLhli 


0167 


7ED9 












1 68 


7ED9 








, CLEAR 


NO OF TESTS 


1 69 


7ED9 












0170 


7ED9 


3D 


•-.cr 


7E 




STA COUNT 


0171 


7EDC 


3D 


36 


7E 




STA COUNT+1 


9172 


7EDF 












0173 


7EDF 








: SUBTRACT ONE FROM 


0174 


7EDF 








;no OF 


COMPARISONS 


0175 


7EDF 












ZU76 


7EDF 


38 








SEC 


0177 


7EE0 


rd 


31 


7E 




LDA NOOFC 


0178 


7EE3 


E9 


01 






SEC #1 


0179 


7EE5 


3D 


31 


7E 




STA NOOFC 


0180 


7EE8 


RD 


32! 


7E 




LDA NOOFC+1 


0181 


7EEB 


E9 


01 






SBC #1 


0182 


7EED 


3D 


32 


7E 




STfi NOOFC+1 


0183 


7EF0 








t 




0184 


7EF0 








ALL DONE WHEN NOOF 


0185 


7EF0 












0186 


7EF0 


HE 


•— 1 cl 


7E 




LDX NOOFC+1 


0187 


7EF3 


D0 


0fl 






ENE SPAIR 


0188 


7EF5 


RD 


31 


7E 




LDR NOOFC 


1 89 


7EF3 


C9 


00 






CMP #0 


0190 


7EFH 


D0 


03 






ENE SPAIR 


0191 


7EFC 












0192 


7EFC 








;SORT 


FINISHED 


0193 


7EFC 












0194 


7EFG 


4C 


fifi 


7F 




JMP RTH 


0195 


7EFF 












1 96 


7EFF 








START 


OF STRING PO 


0197 


7EFF 








,PAIR: 


= EASE+7 


0198 


7EFF 












0199 


7EFF 


18 






SPAIR 


CLC 


0200 


7F00 


R5 


54 






LDR ERSE 


0201 


7F02 


69 


07 






RDC #7 


0202 


7F04 


i-icr 
O.j 


56 






STR PRIR 


0203 


7F06 


H5 


55 






LDR EASE+1 


©204 


7F03 


69 


00 






RDC #0 


0205 


7F0H 


cr 

O - J 


57 






STR PAIR+1 


0206 


7F0C 












0207 


7F0C 








, INNER 


LOOP - SUCCE 


0208 


7F0C 












0209 


7F0G 


H0 


00 




I LOOP 


LDV #0 


02 1 


7F0E 


El 


56 






LDA <PAIR>,V 


0211 


7F10 


3D 




7E 




STA LEN1 


0212 


7F13 


C8 








INV 


0213 


7F14 


El 


56 






LDR (PRIR>,V 


0214 


7F16 


.-.cr 

O-- 1 


53 






STR STR1 


0215 


7F18 


C8 








INV 


0216 


7F19 


El 


56 






LDR <:PRIR>,V 


0217 


7F1B 


85 


59 






STR STR1+1 


0218 


7F1D 


CS 








INV 


0219 


7F1E 


El 


56 






LDR '.:prir>,v 


6220 


7F20 


8D 


34 


7E 




STR LEN2 



.iUNTER 
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S0RT3SRC PAGE 0895 

L I NE# LGC CODE LINE 



8221 


7F23 


C8 






0222 


7F24 


El 


56 




0223 


7F26 


85 


5A 




0224 


7F28 


C8 






0225 


7F29 


El 


56 




0226 


7F2E 


■•iC 

o .J 


5E 




8227 


7F2D 








8228 


7F2D 








8229 


7F2D 








8238 


7F2D 








8231 


7F2D 








8232 


7F2B 


HE 


34 


7E 


0233 


7F38 


F8 


58 




8234 


7F32 








8235 


7F32 








8236 


7F32 








8237 


7F32 








8238 


7F32 


HE 




7E 


8239 


7F35 


F8 


2D 




8248 


7F37 








8241 


7F37 








8242 


7Fci7 








8243 


7F37 








8244 


7F37 








8245 


7F37 


H0 


00 




8246 


7F39 


El 


err, 

%JO 




8247 


7F3E 


m 


5A 




0248 


7F3D 


F0 


05 




0249 


7F3F 


98 


49 




0258 


7F41 


4C 


64 


7F 


8251 


7F44 


C8 






8252 


7F45 


F8 


43 




0253 


7F47 


CC 




7E 


0254 


7F4A 


90 


84 




8255 


7F4C 


FO 


89 




8256 


7F4E 


E0 


87 




8257 


7F58 


CC 


34 


7E 


0258 


7F53 


98 


E4 




8259 


7F55 


F0 


88 




8268 


7F57 








6261 


7F57 








0262 


7F57 








0263 


7F57 








0264 


7F57 


AD 




7E 


0265 


7F5A 


CD 


34 


7E 


0266 


7F5D 


F0 


2B 




0267 


7F5F 


98 


29 




0268 


7F61 


4C 


64 


7F 


0269 


7F64 








0270 


7F64 








0271 


7F64 








0272 


7F64 








0273 


7F64 


AO 


88 




8274 


7F66 


AD 


34 


7E 


8275 


7F69 


91 


56 





INV 

LDA <:pair>,v 

ST A STR2 
INV 

LDA <PAIR::',V 
STA STR2+1 

; COMPARE TWO ADJACENT STRINGS 
; POINTED AT BV STR1 AND STR2 
.; IF LEN <STR2;'=8 THEN NOSWflP 





LBX 


LEN2 




EEQ 


NOSWflP 


; OTHERWISE 


IF LENGTH <STR1>=8 


THEN :E 


;WAP 






LDX 


LEN1 




EEQ 


SWAP 


; CHECK 


EACH CHAR IN TURN 


.; FIRST 


NON 


EQUAL PAIR 


.; DEFINES LEXICAL ORDER 




LDV 


#8 


COM 


LDA 


<STR1 >,V 




CMP 


<STR2>,V 




EEQ 


NEXTCH .; EQUAL - NEXT CHAR 




ECC 


NOSWflP :STR1<:STR2 




JMP 


SWAP ;STR1>STR2 


NEXTCH 


INV 


NEXT 2 CHARS 




EEQ 


NOSWflP ;255 CHARS EQUAL 




CPV 


LEN1 ;end OF STRING? 




ECC 


CKL2 ; NO 




EEQ 


LENEQ 




ECS 


LENEQ 


CKL2 


CPV 
ECC 


LEN2 
COM 




EEQ 


LENEQ 


; CHARS 


EQUAL TO LEN 1 OR LEN2 


; LONGER STRING IS LEXICAL GREATER 


LENEQ 


LDA 


LEN1 




CMP 


LEN2 




EEQ 


NOSWflP ; EXflCTLV EQUAL 




ECC 


NOSWflP .; STR1 SHORTER 




JMP 


SWAP 


':. REVER 


3E ORDER OF STRINGS BV 


.; SWAPPING POINTERS ROUND 


SWAP 


LDV 


#0 




LDA 


LEN2 




STA 


<PAIR>, V 



LINE* LOC CODE 



LINE 



8276 7F6E C8 

0277 7F6C A5 5A 

027S 7F6E 91 56 

0279 7F70 C8 

0280 7F71 A5 5E 

0281 7F73 91 56 

0282 7F75 C8 

0283 7F76 fill 33 7E 

0284 7F79 91 56 

0285 7F7E CS 

0286 7F7C fl5 58 

0287 7F7E 91 56 

0288 7F80 C8 

0289 7F81 A5 59 

0290 7F83 91 56 

0291 7F85 





~7» r— ■ rr* 

i- F85 










"T* r~ i — i c^" 

i- Fb5 










• Ft: 5 


A9 


01 






7F87 


8D 


39 


7E 




7F8A 








0297 


7F8A 








0298 


7F8A 








0299 


7F8fl 


EE 


35 


7E 


0300 


7F8B 


D0 


03 




0301 


7F8F 


EE 


36 


7E 


0382 


7F92 






0303 


7F92 








0304 


7F92 








0305 


7F92 


flD 


35 


7E 




7F95 


CD 


31 


7E 


0307 


7F98 


D0 


16 


0308 


7F9fl 


FID 


36 


7E 


0309 


7F9D 


CD 


32 


7E 


0310 


7FA6 


D0 


0E 


0311 


7FA2 








0312 
0313 


7FA2 
7FA2 








0314 


7FA2 








0315 


7FA2 


AE 


39 


7E 


0316 


7FA5 


F0 


03 




0317 


7FA7 


4C 


D4 


7E 


0318 


7FAA 


68 




0319 


7FflE 


AA 






0320 


7FAC 


68 






0321 


7FAD 


A8 






0322 


7FAE 


68 






0323 


7FAF 


60 






0324 


7FE0 








0325 


7FE0 








0326 


7FE0 








0327 


7FE0 








0328 


7FB0 


18 






0329 


7FB1 


fl5 56 




0330 


7FB3 


69 03 





INV 

LDA STR2 

sth <:pair>,v 

INV 

LDH STR2+1 

sth <:pair;,v 

INV 

LDH LEN1 

sth <::phir:>,v 

INV 

LDfl STR1 

sth <:phir>,v 

INV 

LDfl STR1+1 
STH CPflIR::-,V 

.■SET SWAP FLAG 

LDH #1 
STH FLAG 

•■'ADD ONE TO COUNT 

NOSWAP INC COUNT 
ENE 01 
INC COUNT+1 

; CHECK IF COUNT=NOOFC 

01 LDA COUNT 

CMP NOOFC 
ENE PLUS3 
LDA COUNT+1 
CMP NOOFC+1 
ENE PLUS'S 

INNER LOOP FINISHED 
•■IF NO SWAPS THEN ALL SORTED 

LDX FLAG 
BEQ RTN 
JMP OLOOP 
RTN PLA 
TAX 
PLA 
TAV 
PLA 
RTS 

.;ADD 3 TO PAIR FOR NEXT TWO 
.-STRINGS IN INNER LOOP 

PLUS3 CLC 

LDA PAIR 
ADC #3 



S0RT3SRC PAGE 00@T 

LINE* LOG CODE 



LINE 



0331 7FB5 85 56 

0332 7FB7 A5 57 

0333 7FE9 69 00 

0334 7FEE 85 57 

0335 7FED 4C OC 7F 

0336 7FC0 



STA FAIR 
LDfl PflIR+1 
ABC #0 
STA PflIR+1 
JMP I LOOP 
. END 



ERRORS = 0000 



SYMBOL TABLE 



SYMBOL 
AFOUND 
CB 

DOSURT 

INIT 

LOCATE 

NOOFC 

OLOOP 

SPAIR 

TEMP 



VALUE 
7E97 
7E2D 
7EA7 
7EC8 
7E5C 
7E31 
7EB4 
7EFF 
7E37 



ASTART 


002C 


BASE 


0054 


GA 


7E2C 


CKL2 


7F50 


COM 


7F39 


COUNT 


7E35 


ERROR 


7E2E 


FLAG 


7E39 


I LOOP 


7F0C 


LEN1 


7E33 


LEN2 


7E34 


LENEQ 


7F57 


MOREA 


7E6C 


NEXTfl 


7E79 


HEXTCH 


7F44 


HOOFE 


7E2F 


NOSWAP 


7F8A 


01 


7F92 


PAIR 


y056 


PLUS3 


7FB0 


RTN 


7FAA 


STRl 


0058 


STR2 


005A 


SWAP 


7F64 



END OF ASSEMBLY 
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1 REM ****************************** 

2 REM *BASIC LOADER FOR MACHINE CODE 

3 REM *SORT PROGRAM. LOADS INTO MEMORV 

4 REM *FROM 32314 UP. TOP OF MEMORV 

5 REM *IS PROTECTED '.'LINE 18>. 

9 REM ****************************** 
i O P0KE52 .. 06 : P0KE53 , 1 26 

20 DATA32314 

2 1 DATA48 .■ 98 , 48 , 8A , 48 

22 DATAAD , 2C , 7E , 29 , 7F , 8D , 2C , 7E 
24 DATAAD , 2D .. 7E , 09 , 80 .. 8D .. 2D .- 7E 
26 DATAA9 , 98 , 8D , 2E , 7E 

28 DATAA5 , 2C , 85 , 54 , A5 , 2D , 85 , 55 

30 DATAA0 , 00 , B 1 54 , C9 , 24 , DO , OS 

32 DATAA9 , 1 , 8D , 2E , 7E , 4C , AA , 7F 

34 D AT ACD , 2C , 7E , D0 , 88 , C8 , E 1 , 54 , CD , 2D , 7E , F0 , 1 E 

36 DAT A A0 , 82 , B 1 , 54 , 8D , 37 , 7E , C8 , B 1 , 54 , 3D , 38 , 7E 

38 DAT A 1 8 , A5 , 54 , 6D , 37 , 7E , 85 , 54 , A5 , 55 , 6D , 38 , 7E , 85 , 55 

48 DATA90 .. C5 

42 D AT AA8 , 04 , B 1 , 54 , C9 , O 1 , F8 , 08 
44 DATAA9 , 02 , 8D , 2E , 7E , 4C , A A , 7F 

46 DATAA6 , 05 , E 1 , 54 , 8D , 38 , 7E , C8 , B 1 , 54 , 8D , 2F , 7E 

43 D AT AAE , 38 , 7E , D8 , 8F , AD , 2F , 7E , C9 , 82 , E8 , 88 
58 D AT A A9 , 83 , 8D , 2E , 7E , 4C , A A , 7F 

52 DATAAD , 2F , 7E , 3D , 3 1 , 7E , AB , 38 , 7E , 8D , 32 , 7E 
54 DAT A A9 , 88 , 8D , 39 , 7E 
56 DATAS'D , 35 , 7E , 3D , 36 , 7E 

58 DAT ASS , AD , 3 1 , 7E , E9 , 8 1 , SD , 3.1 , 7E , AD , 32 , 7E , E9 , 88 , 8D , 32 , 7E 
68 DAT AAE , 32 , 7E .. DO , 8 A , AD , 3 1 , 7E , C9 , 88 , D8 , 83 
62 BATA4C, AA. 7F 

64 DATA 1 8 .. A5 .. 54 , 69 , 87 .. 85 .. 56 .. A5 .. 55 .. 69 .. 88 .. 85 .■ 57 

66 DATAA8 , 88 , E 1 , 56 , 8D , 33 , 7E , C8 , B 1 .. 56 , 85 , 58 , C8 , E 1 , 56 , 85 , 59 , CS 

68 D AT AB 1 , 56 , 8D , 34 , 7E , C8 , E 1 , 56 , 85 , 5 A , C8 , E 1 , 56 , 85 , 5B 

78 DATAAE , 34 , 7E , F8 , 58 

72 DATAAE , 33 , 7E , F8 , 2D 

74 DATAA8 , 88 .. B 1 .. 58 .. D 1 .. 5A , F8 , 85 .. 98 .. 49 , 4C .. 64 .. 7F .. C8 

76 DAT AF8 .. 43 , CC .• 33 .. 7E .. 98 .. 84 .. F8 .. 89 .. B8 , 87 .. CC .• 34 .. 7E .. 98 .. E4 .. F8 .. 80 

78 DATAAD , 33 , 7E , CD , 34 , 7E , FO , 2B , 98 , 29 , 4C , 64 , 7F 

88 DATA A8 .. 88 .. AD , 34 , 7E .. 9 1 .. 56 .. C8 .. A5 .. 5A , 9 1 .. 56 .. C8 .. A5 .. 5E .. 9 1 .■ 56 .. C8 

82 DATAAD .. 33 .. 7E .. 9 1 .. 56 .. C8 .. A5 .. 58 ..91.. 56 .. C8 , A5 .. 59 . 9 1 .. 56 

84 D AT AA9 .. 8 1 , 8D .. 39 , 7E 

86 DATAEE , 35 , 7E , D8 , 83 , EE , 36 , 7E 

88 DATAAD , 35 , 7E , CD , 3 1 , 7E , D8 , 1 6 , AD , 36 , 7E , CD , 32 , 7E , D8 , 8E 

98 DATAAE , 39 , 7E .. F8 .. 83 , 4C .. D4 .. 7E .. 68 .■ AA .. 68 .. AS .. 68 , 68 

92 DATA 1 8 .. A5 .. 56 .. 69 , 03 , 85 .. 56 , A5 , 57 , 69 .. 88 .. 85 .. 57 , 4C , 8C .. 7F 

34 DATA* 

288 READL 

218 READ A* 

228 C=LEN<A*;' 

238 IFA$="*"THEN488 

248 IFC<1ORO2THEN320 

258 A=ASC<A$>-48 

268 B= ASC ( R I GHT* C A* , 1 ) > -48 

278 N=B+7* «:' B>9 > - ( C=2 > * < 1 6* ( A+7* ( A>9 > > > 

288 IFN<80RN>255THEN328 

298 POKEL..N 

388 L=L+1 

318 GOTO210 

320 PRINT"BVTE"L"=C"A*"] ???" 
RE ADV. 
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CM 
I/O 

490 REM ******************************* 

410 REM *PROGRflM TO DEMONSTRATE SORT/SEARCH 
420 REM *ADD/DELETE ON STRING ARRflVS 
430 REM *DEMONSTRAT I ON ARRflV IS ZS*0 
440 REM ******************************* 

450 REM 
460 REM 

470 REM **BflSE ADDRESS OF MACHINE CODE** 

4S0 Z 1=32306 -J 1 ^ " ftc * 

490 INPUT "HOW MANY ELEMENTS " ; ZN 

500 REM **RESERVE ARRAY SPACE** 

510 DIM ZQ*<1>,ZP*<1>,ZS*<ZN> 

520 REM **DEFAULT ARRAY NAME** 

530 POKEZl,ASC<"Z"> 

540 POKEZl+l,flSC("S"> 

550 REM **PRINT HELP** 

560 GOSUE 1 000 

570 INPUT"OPTION",ZO 

580 IFZO4THEN610 

590 ONZOGOSUE 1 000 .. 2000 , 3000 .. 4900 

600 GOTO570 

610 IFZO>8THEN640 

620 UNZO-4GOSUE4500 .. 5000 .. 5500 .. 6000 
630 GOTO570 
640 PRINT"?????" 
650 G0T0570 
READY. 



1000 REM ********************** 

1010 REM *ROUTINE TO PRINT MENU 
1020 REM *OF FUNCTIONS IN PACKAGE 
1030 REM *ON SCREEN. 
1040 REM ********************** 

1050 PRIHT'TMPTION" 
I860 PRINT" 1 -HELP" 
1870 PR I NT "2- INPUT" 
1088 PRINT"3-PRINT" 
1098 PRINT "4 -NAME ARRAY " 
11O0 PRINT"5-SORT" 
1110 PRINT"6-ADD STRING" 
1120 PR I N'T " 7-DELETE STRING" 
1130 PR I NT " 8-SEARCH " 
1140 RETURN 
READY. 
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•080 REM **************************** 

010 REM *SUBROUTINE TO INPUT STRING INTO 
2020 REM *BASIC ARRAV FROM KEVBGAPD~ 
2030 REM *RECODE FOR DIFFERENT DEVICES 
2040 REM *DISK, TAPE, IEEE ETf: 
2058 REM *STRINGS INTO ZS*<0 Jn ZN ' 
2060 REM **************************** 
2070 REM 
20S0 REM 

2090 PRINT: PRINT 

2100 REM **CLEAR ALL STRINGS** 

2110 F0RZI=8T0ZN 

2128 ZS*<ZI>="" 

2130 REM 

2140 NEKTZI 

2150 PRINT" INPUT ONE STRING AT A TIME" 
2160 PRINT"TVPE ••*••• + RETURN TO TERMINATE" 
k'lrti PRINT 
2180 FORZI=0TOZN 

2190 REM **CHECK FREE SPACE AVAILABLE** 
k-k-OU IF FRE<0>>256 THEN 2220 

2210 PR I NT "WARNING - ONLV ".; FRE('0> ; "BVTES LEFT 
c:'220 PR I NT " STR I NG " ; Z I 
2230 INPUTZS*<ZI> 
2240 REM 

2258 IFZS$<ZI>="*"THEN 22*0 
2260 REM 
2270 NEKTZI 
2280 RETURN 
2296 ZS$<Zn = "" 
2300 REM 
2310 RETURN 
REflDV. 



c:0y0 REM ****************************** 

o001 REM *SUBROUTINE TO PRINT ZS* ON fiPREEN 
J009 REM **********************i******^ ' 

otUO ZM=0 

3020 F0RZI=8T0ZN 

3030 IFZS*';ZI> = ""THEN 3fi8fl 

3840 REM 

3050 PRINTZS*<Zn 
3060 REM 
3070 ZM=ZM+1 
3880 NEtfTZI 

3090 PR I NT "NUMBER OF ENTRIES' Is " ; 7M 
3100 RETURN " " 

READY. 



4000 REM **************************** 

4001 REM *SUBROUTINE TO NAME ARRAV TO 

4002 REM *BE SORTED. 

4009 REM **************************** 

4010 INPUT "ARRAV NRME " ; ZT$ 

4020 REM **TEST TO CHECK STRING ARRAV** 

4030 I F R I GHT* < ZT* , 1 > = " $ " THEN4060 

4040 PR I NT "STRING RRRflV ftNLV" 

4050 RETURN 

4060 POKE Zl+1,0 

4070 REM **1ST CHfiRfiCTER** 

40S0 ZA$=LEFT*< ZT$ . 1 "> 

4090 IFZA*>="A" AND ZA*<="Z"THEN 4120 

4100 PR I NT "ALPHABETIC NAME ONLV - 1ST CHAR" 

4110 GOTO4010 

4120 POKE Zl, ASC<ZA*> 

4130 IFLEN<:ZT*.K"=2 THEN RETURN 

4140 REM **2NB CHARACTER, IF ANY** 

4 1 50 ZA$=M I D* <: ZTt- , 2 , 1 > 

4160 IF Zfl*>="A" AND ZA* <="Z" THEN 4l9fi 

4170 PR I NT "ALPHABETIC NAME ONLV - 2ND CHAR" 

4 ISO GOTO401O 

4190 POKE Zl + 1 , ASC'-ZA* 

4200 RETURN 

read v. 



4500 REM ****************************** 

4501 REM *SIJEROUTINE TO SORT NAMED ARRAY 

4502 REM *USING MACHINE CODE ROUTINE ^ 

4509 REM ****************************** s 

4510 REM 

4520 PR I NT "SORTING ARRAV " " ,' CHR* (. PEEK <.' Z 1 ':• "■• : f:HR$ <' PEEK Z 1 + 1 "' "■ i "$ '' " 
4530 SVS('Z1 + 14'> ' ' ' * ' ' ' 

4540 ZI=PEEK'CZl+2> 

4550 IFZI=S THEN PR I NT "SORTED O.K." 
4.j60 IFZI = 1 THEN PR I NT "ARRAV NOT FOUND " 
4570 IF£l=2 THEN PR I NT "NOT ONE DIMENSION ARRAV " 
4580 IF £1=3 THEN PR I NT "TOO FEW ELEMENTS" 
4590 IFZIX-. THEN PRINT"UNSPECIFIED SORT ERROR" " 
4600 RETURN 
RE ADV. 
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"SI 



2 

SO 



5yyy rem 

5601 REM *ABB A STRING INTO 
5002 REM *CHECK LOCATION FREE~ 

rIm **************************** 

5020 IF ZS*CZN>=""THEN 5060 
5030 REM 

5040 PR I NT "HO SPACE - TPV WT" 
5050 RETURN 

5060 REM **CHECK SUFFICIEN SPACE FREE** 

5W70 IF FRE<0»255 THEN 5*100 

5080 PRINT"ONLV FRE<0> ; "BYTES LFFTi" 

5090 REM **GET STRING TO ' ADD** 

5100 PRINT" INPUT STRING" 

5110 INPUT ZS$<ZW 

5120 REM 

5130 REM *#SORT** 
5140 SVS<Z1+14> 
5150 PR I NT" O.K. " 
5160 RETURN 
READ'' 



T 



5500 REM ************************** 

5501 REM *DELETE STRING IN 7*J 

5502 REM ^REQUEST STRING NUMBER 

III !m ************************** 

5520 INPUT "STRING NUMBER" ; 7j 
5530 IFZI>=0 AND ZI<"=ZN THEN =>^fi 
5540 PRINTZI,»OUT n F RANGE" 
5550 GOTO5520 

35SS RE ^** D 2 NT .DELETE NULL STRINGS** 
^i. 11 ^*<ZI.k>"" THEN 5620 
55aw REM 

5590 PRINT"NULL STRING ALPEADV" 
5600 RETURN 

5620 PR INT" STR I NG " ; ZI ; " I S - » ; 7s* ?n • « 
5630 REM " " * •' 

5640 I NPUT " DELETE < V/N > " ; 7 y$ 

fill ls^lnf«? v ^ 1>0 " v " ?HEN RETURN 

5670 REM 

5688 REM **AND SORT** 
5690 SVS':'Z1 + 14j 
5700 PR I NT "O.K. " 
5710 RETURN 
READV. 
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6080 REM ***************************** 

6001 REM #SUBROUTINE TO BINARY SEARCH 

6002 REM *flRRflV ZS*Q. 

6009 REM ***************************** 

6010 REM **SORT TO EE SURE** 
6 020 S VS < Z 1 + 1 4 > 

6030 I HPUT " TARGET STR I NG " ; ZT* 

6040 INPUT "PARTIAL MATCH < V/N> " , ZV* 

6050 ZF-1 

6060 IF LEFT^ZV*, 1>="V" THEN ZF-0 
fiPi?fi ZT=0 
60S0 ZB=ZN+1 

6090 ZM=ZT+ INTO; ZB-ZT > /2 > 

6110 ZI*=ZS$<ZM) 

6120 REM 

6 1 30 GOSUB6600 

6140 REM **THE COMPARISONS** 
6150 IF ZI*=ZT* THEN 6220 
6160 REM **STRING NOT FOUND** 
617U IF ZT=ZM THEN6460 
61S0 REM **CHANGE POINTERS** 

6190 IF ZI*="" OR ZT*>ZI* THEN ZT=ZM : GOTO 6090 
6200 ZB=ZM 
6210 GOTOfc.090 

6220 REM **FOUND - CHECK BACK FOR OTHERS** 
6230 ZB=ZM 

6240 IFZE-KO THEN 6310 

6250 ZI$=ZS$c:ZB-i::' 

6260 REM 

6270 GOSUB6600 

62S0 IFZI*OZT* THEN 6310 

6290 ZB=ZE-1 

6300 G0T06240 

6310 REM **CHECK FORWARD FOR OTHERS** 
6320 ZT=ZM 

6330 IFZT+1>ZN THEN640O 

6340 ZU=ZS$(ZT+1> 

6350 REM 

6360 GOSUE6600 

6370 IFZI*OZT* THEN 64O0 

6380 ZT=ZT+1 

63y0 GOTU 6330 

64U0 REM **PRINT ALL MATCHED STRINGS** 

6410 FORZI=ZB TO ZT 

6420 PRINTZI; " ■-" ;ZS*('Zn 

6430 REM 

6440 NEXT ZI 

6450 RETURN 

6460 REM **STRING HOT FOUND** 
6470 PR I NT "STRING NOT FOUND" 
64S0 RETURN 

6600 REM **STRING MANIPULATION** 

6610 IFZP=0flND<LEN<2I*»LEN<ZT*>>THENZI*=LEFT*<ZI*,LEN<ZT*)> 
6620 RETURN 
RE ADV. 



103 



SORTING WITH A LINKED LIST 



i 1 + J' 5 ' 15 \ way of organising data in sorted order 
without the data having to be physically in sequence, the 
data is instead ordered logically. The data is organised 
using pointers associated with each data item, this allows 
data to be sorted without physically moving the data. This 
technique is commonly used with disk files and may be used 
internally as a sorting technique. 



HEAD 



ITEM 1 



ITEM3 



ITEM2 



If data is held in a table 
data either in the sequence 
chained sequence. Each item 
the chain, starting from the 
into its correct position. 



like this, a user can output the 
in which it is held or in its 
input is compared with items in 

head of the chain, and is linked 



CAT 




DOG 





COAT 



CAT 



COAT 



DOG 



In a table this might appear as: 

""NEXT 
FROM 



DOG 



CAT 



COAT 
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The head of the list which points to the first data item in 
the chain is held in the first location in the table. The 
last item in the chain points back to the head of the chain. 
The program puts each data item in the next free place in the 
table and links it into its place in the chain. 

LINKLIST 



This is a set of four integrated subroutines designed to 
create a linked list data array and read/write to that array. 
24008 - Initialise: this routine creates the head and tail 
pointers for a new list. 

24026 - Input to list: this initialises the variables and 
calls the routines to get text and pointers and insert new 
item in array. 

24048 - Get text and pointer: this routine gets the text in 
PL$(PP)and extracts the pointer from the end of the text 
which it returns as variable PR. Variable PP is set to 1 to 
access the head of the file. 

24076 - Insert text: this routine is only used by the routine 
at 24028, it takes the input string P$ finds its correct 
position in the list using the subroutine at 24048 and adds 
the correct pointers on to the end of the string, using the 
back slash character as an end of string marker. 



Parameters used: 



string variable to be input to linked list, 
array in which linked list is stored, 
number of elements in array PL$(). 
pointer to next free element in array PL$(). 
error flag, if 1 then array is full, 
element in array to be accessed by routine 24048. 

pointer to next element in chain returned by routine 



P$ 

PL$0- 

PL 

FL 

PI 

PP 

PR 

24048. 



z 
r 

^ 106 PL=10U- REM **NUMBER OF ELEMENTS IN LIST** 

110 FL=l: REM **NEXT FREE ELEMENT IN LIST** 
120 DIMPLE PL) 

1000 REM ***************************** 

1001 REM *E*AMPLE OF WAV LINK LIST ROUTINE'-; 

1002 REM *CAN BE USED TO STORE AND RETREI'-'E 

1003 REM *DATA. 

1009 REM ***************************** 

1010 PR I NT "ML INK LIST DEMO PROGRAM Fl INCTinNSWW" 
1020 PRINT" 1 -INPUT DATA TO LINK LIST" " '"" 
1030 PRINT"2-PRINT DATA IN CHAINED ORDER " 

1040 PRINT"3-PRINT DATA AS HELD" 
1050 PRINT"4-END" 
1 060 GETA* • I FA$= " " THEN 1 060 
1070 fl=VflL<fl*> 

1 080 ONAGOTO 1 1 00 .. 1 300 , 1 50fl , 1 090 
1090 END 

1100 REM ** INPUT DATA TO LIST** 

111© PRINT":i«WWINPUT DATA TO LINK LIST" 

1120 PR I NT "TO END ENTER ''END '"WW" 

1130 INPUTP* 

1 1 40 I FP$= "END " THEN 1010 

1 1 50 GOSUE24000 

1160 GOTO 1130 

1300 REM **PRINT DATA IN CHAINED ORDER** 

1310 PRINT'TJDfiTfl IN CHAINED SEQUENCE WW" 

1320 PF-1 

1 330 GOSUB24050 

1340 PP=PR 

1 350 GOSUB24050 

1360 PRINTA1* 

1370 IFPRMTHEN1340 

1 380 GET fl* : I F A* = " " THEN 1 380 

1390 GOTO 1010 

1500 REM **PRINT DATA IN LIST SEQUENCE** 

1510 PRINT".TDATA IN LIST SEQUENCE WW" 

1520 PR I NT "ELEMENT POINTER DAT A WW" 

1530 FORQ=lTOFL-l 

1540 PP=Q 

1550 GOSUE24050 

1560 FRINTQ,PR,A1$ 

1570 NE*TQ 

1580 GET A*- IFA$=""THEN1380 

1590 GOTO 1010 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

6000 REM 

24000 REM***************************** 

24002 REM*SUBROUT I NES TO SET UP AND 
24004 REM* ACCESS LINK LIST ARRAV. 
24006 REM***************************** 
24O08 REM 

24010 REM***INITIALISE LINK LIST*** 
24012 REM 

24014 IFFL>1THEN24032 
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24816 PL$< 1 > = " \2" 
240 IS FH=2 

24020 PL*<2>=P*+"\1" 
24022 FL=3 
24024 RETURN 
2402b REM 

24028 REM******INPUT TO LIST******** 

24030 REM 
24032 F'F-1 :P1=@ 

24034 I FFL>=PL+ 1 THENP 1=1- GOTO24046 

24036 REM 

24038 REM 

24040 REM 

24042 GOSUB24048 

24044 GOSUB24076 

24046 RETURN 

24048 REM 

24050 REM*****GET TEXT & POINTER*** 

24052 REM 

24054 fi2=LEN<PL*<:PP}> 
24056 F0Rfi3=lT0fl2 

24058 IFMID*'::PLt<PP>,H3, 1> = "S"THEN2406 
24060 NEKTflS 

24062 Hl*=LEFT*<PL*iPP>,fi3-i> 

24064 H2*="" 

24066 F0Rfl4=fi3+ 1 T0fl2 

24068 fi2$=fi2$+MIB*<PU*<PP>,fi4.. 1> 

24070 NEXTR4 

24072 PR=VflL-::fl2*> 

24074 RETURN 
24076 REM 

24075 REM*****INSERT TEXT*"********* 

24080 REM 

24032 fil=PP 

24084 PP=PR 

2 4 8 6 G S U E 2 4 4 8 

24088 I FP* <H 1 *THEN24 1 04 

24090 I FPf =R 1 *ORPR= 1 THEN24098 

24092 IFP$>HlJ:THEN24082 

24094 PF-fil 

2 4096 G S U E 2 4 4 8 

24G98 PL* ( PP > =fl 1 1+ " \ " +STR* <FL > 

24 1 00 PL* ••: FL ) =P$+ " S " +ft2$ 

24102 GCn 0241 12 

24104 IFFHOPPTHEN24094 
24106 PL$a> = " '■■,"+STR*(FL> 

24 1 05 FL$< FL > =P*+ " S " +STR* ( FH > 
24110 FH=FL 

24112 FL=FL+1 
24114 RETURN 
EHDV. 



SORTED OUTPUT 



When the only requirement is to print out an array in sorted 
order, it is unnecessary to actually sort the array prior to 
printing. The sorting can be done as part of the array 
printing subroutine. The following subroutine is designed to 
print an array in sorted order. This subroutine is ideal if 
for example, all that is required is an alphabetic index of 
data stored either in core or on disk. Since indexing will 
account for many of the applications of this routine the 
option has been added to give a character heading to each 
alphabetic section. 



PRINTSORT 



This subroutine will output the contents of array P$ in 
sorted order either on the screen or on a PET printer. The 
routine requests which output device is to be used, screen or 
printer or both. The user is then prompted as to whether 
section headings are required (a section heading would for 
example be A above all entries in the array beginning with 
the character A). The array may be printed in both sorted and 
unsorted order. It should be noted that when sorting data 
consisting of long data strings which include punctuation, 
unexpected results may appear, due to the character 
representation given in PET ASCII to punctuation and graphics 
characters. By changing the device numbers used in this 
subroutine it could be made to output data in sorted order to 
a disk drive; a simple way of ensuring that data on a 
sequential disk file is in alphanumeric order. 



Parameters used: 



P$() - data storage array from which data is to be output in 
sorted order. 

PT%()- tag array used by sort code to indicate which elements 
in array P$() have been printed. 

PN - number of elements in array P$() which are to be 
sorted. 



1060 REM ****************************** 

1001 REM *EXAMPLE OF SUBROUTINE CALL TO 

1002 REM *PRINT OUT IN SORTED ORDER THE 

1003 REM ECONTENTS OF ARRAV P*0. 

1009 REM ****************************** 

1010 FOR Q=1TO10 

1020 INPUTPfOS) •' REM **INPUT ARRAV P*o** 
1030 NEXTQ 

1040 PN=10:REM **NUMBER OF RECORDS TO EE SORTED** 

1 050 G0SUE2 1 0fifi 

1060 END 

2000 REM 

30O0 REM 

4000 REM 

5000 REM 

6000 REM 

21800 REM ***************************** 

21002 REM *ROUTINE TO PRINT AN ARRAV IN 
cil004 REM *IN ALPHANUMERIC ORDER OH EITHER 
21006 REM *THE PET SCREEN, PRINTER OR OTHER 
21008 REM *IEEE I/O DEVICE. 

21010 REM *THIS TECHNIQUE OFFERS ADVANTAGES 
21012 REM *OVER SORTING THE LIST BEFORE ' 
21014 REM SPRINTING.. PARTICULARLV IN TERMS 
21016 REM *OF TIME TAKEN. 

2 1018 REM *NOTE •' THIS ROUTINE SORTS POf.nRBING 
c:1020 REM *TO THE PET'S INTERNAL REPRESENTAT I OH 
^1U22 REM *OF THE ASCII CHARACTER SET ■ 
21024 REM SPUNCTUATION MflV THEREFORE HAVE 
21026 REM *SOME UNEXPECTED EFFECTS. 
21028 REM ***************************** 

rjp! ^j[^I!!JJ^!!!5?I N I?_£I RINGS IN ALPHANUMERIC ORDER 

21034 REM ^DETERMINE WHERE TO BE SENT** 
2 1 036 AS=0 •■ AP=0 

21033 INPUT"Pls>i»»*«:iiJTPUT TO SCREEN ('V OR N"-";V* 
2 1 040 I F_ LEFT* ( V* , 1 ) = " V " THEN AS= 1 

21042 INMJT"M»»iiiMQUTPUT TO PRINTER <:'V OR V$ 

21044 IF LEFT* <.' V$, 1 > = " V" THEN AF-1 

21046 K'EM **OPEN PRINTER CHANNEL** 

2 1 048 I FAF-0THEN2 1 054 

21O50 CH=4 : REM **PR INTER CHANNEL** 

21052 OPENCH,CH 

21054 REM **SECTION HEADING-:** 

21056 INPUT"M»»i*»ISECTION HEADINGS >:'V np H)";Vt 
2105o AT=0 

21O60 I F L E F T f V $ , 1 ':• < > " V " THEN AT=1 
21062 REM **PRIHT UNSORTED LIST** 

21064 INFUT'MSKWiiiilDO VOU WISH TO PRINT l.iN SORTED LIS 

21066 I FLEFT$ ( Vf , 1 > O- " V " THEN 21R76 

21068 FOR 1 = 1 TO PN 

21O70 IF AS=1 THEN FRINTP*a > 

21072 I F AF - i THEN PR I NT#CH , P* < I > 

21074 NEXT I 

21076 REM **CLEAR PRINTED" FLAGS** 
21078 FOR I = 1 TO PN 



21888 PT<r:«=8 
21882 NEXT I 

21884 IF AS=1 THEN PRINT = PRINT : PRINT 

21886 IF RF-1 THEN PRINT#CH • PRINT#CH : PRINT#CH 

21888 REM **PRINT SMALLEST IN OUTER LOOP,** 

21898 REM **TflG ONCE PRINTED, NEXT TIME** 

21892 REM **ROUND PRINT SMALLEST REMAINING** 

21894 AH*=CHR*<255::' 

21896 FOR 1=1 TO PN 

21898 AM*=CHR*<255> 

21188 AM=1 

21182 FORJ=lTO PN 

21184 IF PTUT> = 1 THEN 21188 

21186 IF P*UXAM* THEN AM*=P*<J> : AM=J 

21188 NEXT J 

21118 REM ** TAGGED SMALLEST FOUND** 
21112 PTCAM>=1 

21114 REM **PRINT LETTER HEADING CIF REQD. ;-** 

21116 AN*=LEFT* AM* , 1 > 

21118 IFO;AH*=AN$>OR AT=1> THEN 21124 

21128 IFAS=1 THEM PR I NT PR I NTAN* •' PR I NT 

2 1 1 22 I F AP= 1 THEN PR I NT#CH : PR I NT#CH , AN* : PR I NT#CH 

21124 REM **PRINT SMALLEST** 

21126 IFAS=1 THEN PRINTAM* 

21128 IFAP=1 THEN PRINT#CH, AM* 

21138 AH*=AN* 

21132 NEXT I 

2 1 1 34 PR INT: p R IHT : PR I NT : PR I NT 
21136 REM **ROUND AGAIN?** 

21138 INPUT "DO VOU WISH TO PRINT LIST AGAIN" ;V* 
2 1 1 48 IF LEFT* < V* , 1 > = " V " THEN 2 1 834 
21142 PRINT"O.K." 
21144 RETURN 
RE ADV. 
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SEQUENTIAL DATA FILES 



Sequential access disk files are the simplest form of disk 
data storage. Sequential file access is however not easily 
incorporated into standard subroutines. The subroutines used 
in this section consist of simple function blocks. To read or 
write a file will require on average three subroutine calls, 
one of which is repeatedly used within a loop. The 
demonstration program from lines 100-1290 show how they are 
used to read or write a file. The sequence of operations used 
is as follows: 

a) At the beginning of the program the data disk should be 
initialised and the command channel opened using subroutine 
24400. This must be done whether the file is to be written or 
read. 

b) To write a data file (file name F$) first call subroutine 
24000 to open a logical file for writing. This subroutine 
allows a new file to replace an old file, should an old file 
of the same name exist. Each record - P$ - can then be 
written on to disk using subroutine 24200; repeat calling 
this subroutine until all records have been recorded. The 
logical file can then be closed using subroutine 24100. 

c) To read a sequential file (file name F$) first open a 
logical file to read with routine 24050. Data can then be 
read by repeatedly calling subroutine 24300; each record is 
output as P$. The end of the file is indicated by the 
variable P being set to 64; the number of records on the file 
is contained in the variable IS. The logical file is then 
closed using subroutine 24100. 

The usual practice is to store the data for a sequential file 
in an array, though data can be input as individual records 
providing the file is kept open between writing each record. 
Data output can be either into an array or directly on to the 
screen or printer. These subroutines all use data in string 
format as the variable to be read or written to disk, this in 
my opinion is better than mixing data types on the file. This 
means that numerical data must be converted into string 
format before writing to disk, and vice versa when reading. 
Although the variable P$ is used to transfer data between the 
disk file and the main program, successive records need not 
originate from the same variable. Variables A$,B$ and C$ can 
be stored as successive records, each transfered as P$ to the 
subroutine. When using successive sequences of different 
variables it is important always to retain that sequence by 
recording each record, even if it has a null entry, otherwise 
when reading the file one will get out of order. If the 
number of records in each sequence is variable, then an end 
of sequence marker record must be used. 



Parameters used: 



must "be Se u q s U ed nt ;? ] ZTtU^ T^' ™ re than ™ value 
Typical value is 2 ™ ° ne f lJe is accessed at a time. 

F$ - lil^nare'of ' ^ ■ ° ° r 1} ° f ««!"ential data file. 
P$ - data as str?i SeqUen K V al data f ile to be messed, 
from disk S Stnng Vanab]e to be stored on disk or read 

P 

=6*. 

£ sit To%jL™ZilJ"V'°™ a """"thl »«e. should 
relative posi„on°o] ZZTJJ't °£ * U " d » 



end of file flag normally , 0( if end of file then 
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106 CH=2 D=l -REM *CHANNEL AND DRIVE NUMBER** 3 
110 SP*=" , £ 

lc:U CR$=CHR$<13) : REM **CARRAGE RETURN* f 

1000 REM *************************** 

1001 REM *DEMONSTRATION OF USE fiF SEG 

1002 REM *FILE SUBROUTINES. 

1009 REM *************************** 

1010 GOSUB24400: REM * INITIALISE* 

1020 PR INT" ITSMsBEQUENT I AL DISK FILE DEMO FMNnTiriNSWN" 

1 030 I NPUT " I NPUT FILE NAME " ; F$ 

1040 PR I NT "MM -CREATE DATA FILE" 

1050 PRINT"WW2-REflD DATA FILE" 

1 060 PR I NT " MM3-END " 

1 070 GETA* •• I FA*= " " THEN 1 070 

1080 H=VAL<Af) 

1 090 ONAGOTO 1110,1 20Pi . 1 1 00 

1100 END 

1110 REM * 

1111 REM *CREATE DATA FILE. 

1119 REM * 

1 1 20 GOSUB24000 

1130 PR I NT "3MWI NPUT DATA TO BE STORED ON DISK WW" 
1140 INPUTP* " 
1 1 50 I FP*= "END " THEN G0SUB24 1 OO : GOTH 1 «2fi 
1 160 GOSUB24200 
1170 GOTO 1140 

1200 REM * 

1201 REM *PRINT SEQUENTIAL FILE 

1209 REM * 

1210 PRIHT"a«)«DI3PLflV DATA ON FILEW 
1220 GOSUB24050 •' IS=0 

1 230 GOSUB24300 

1240 PRINTIS,Pf,P: REM *PRINT RECORD NUMBER , DATA, AND STATU?;* 
i^._.y IFF-64THEN GOTO 1270: REM *END OF FILE"'* 
li'by GOTO 1230 

1270 GETA$ ' I FA$= " " THEN 1 270 

1275 GOSUB24100 

12S0 GOTO 102O 

20O0 REM 

3000 REM 

4000 REM 

5000 REM 

2400O REM *************************** 

cMUfcU REM *OPEN LOGICAL FILE TO WRITE 
c:40O9 REM *************************** 

240 1 OPENCH , o , CH , " © " +STR$ ( D ) + " " +F$+ " . S . hi " 
2402*8 GO S UB 3 0300 
2403O RETURN 

24050 REM *************************** 

24051 REM *OKt,N LOGICAL FILE TO READ 
c:4059 REM *************************** 

24O60 UPENCH, S , CH , STR$ ( D > + " : "+F$+ " , S . F " 
2407O GOSUB'itfSfifi 
24680 RETURN 

241O0 REM *************************** 

c.4101 REM *CLOSE LOGICAL FILE 

24103 REM *************************** 
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24118 CLOSECH 
2412Q RETURN 

24206 REM *************************** 
24201 REM *PRINT RECORD TO FILE 

24209 REM *************************** 

242 1 PR I NT#CH , P* , CR* i 
24220 OOSUE30300 
24230 RETURN 

24300 REM *************************** 

24301 REM *REAB RECORD FROM FILE 

24309 REM *************************** 

24310 INPUT#CH,P* 
24320 P=ST 
24330 GOSUB30300 
24340 IS=IS+1 

24350 I FP=64THENG0T024 1 OO 

24368 I FPO-0THENME$= " BHD DISK STATUS "+STR$':'P '5 : GHsl IE 
24370 RETURN 

24400 REM *************************** 

24401 REM *INITIflLISE DISK 

24409 REM *************************** 

24410 OPEN 1 5 , 8 , 1 5 , " I" +STR$ < D ) 
24420 GOSUE3030fi 

24430 RETURN 

29860 REM *************************** 
29801 REM *CURSOR CONTROL SUBROUTINE 
29805 REM *************************** 

298 1 hc$= "wmmmmmmmnmmmmm" 

k'9820 AB$= " MMMMMMffi^^ 
29830 PR INT" aj"; 

29840 I FCOL> 1 THENPR I NTLEFT* (. iir.$ . CHL - 1 ; 
29850 I FLNE> 1 THENPR I NTLEFT* C AB* . LNE- 1 :< ; 
29860 RETURN 

30100 REM ******************** 

30101 REM *W ARN I NG MESSAGE 
30105 REM ******************** 
38 1 1 COL= 1 •• LNE=25 : GOSUE29800 
30120 A*="liiMI" 

30130 FORA=1TO20 

30 1 40 flW=LOG ( it > PR I NT " SERROP " H* ; 

30 1 50 AW=L0G ':: it > •' PR I NT " ERROR " H$ : 

30160 NEXT : PRINT " 5ERROR "LEFT*<ME*+SP$ . 32 V'"" ; 

30 1 70 GETfl* : I FA* = " " THEN30 1 7fi 

30 1 80 COL= 1 : LNE=25 : GOSi IB2*Smm 

30190 PRINTSP*; 

30200 RETURN 

30300 REM**************************** 

38301 REM*DISK ERROR ROUTINE 

30389 REM**************************** 
303 1 I NPUT# 1 5 , EN , EM* , ET , ES 

30328 I FEN=0GOTO30480 

38330 COL=l : LNE=24 : GOSI IB29Rflfi 

3034O PR I NT " 3D I SK ERROR - ■" ; EN ; EM* ; " T " ET ; " •=; " ; Es ; 
30350 PRINT" CON T, 'ABORT ? " , 
3036O GETfl*: IFA*=""THEN3fi3f-";H 
30370 I FA*C " C " ANDA*Q " fl " fin f n3fi:-;60 
30380 IFA*="A"THEN END 

30390 COL=l : LNE=24 : G0SUE2Wfi : PRINTSP* : 
38400 RETURN 

RE ADV. 



MACHINE LANGUAGE SEQUENTIAL DISK ACCESS 



This section deals with a method of accessing sequential disk 
files from a machine code program. Of use firstly because it 
allows machine code programs to access disk data and secondly 
because subroutines written in machine code based on these 
ideas can be used to greatly speed up data access in Basic 
programs. It is this second use which will be considered in 
this section. 

The GET// command in Basic is very slow, though often very 
useful, especially when concatenating data. It is useful 
because each character accessed from disk can be analysed to 
detect interfield and end of record markers, cutting out time 
consuming string manipulation. To overcome the problem of 
slow access of data using the GET// command while retaining 
optimum speed in concatenation it is necessary to access the 
disk in machine code. This is made much easier by utilising 
subroutines within the Basic interpreter and operating system 
of the PET. The following are a few of the entry points which 
can be used: 



$C389 - exits to 'Ready' mode. 
$FFCC - resets default I/O devices; 

ie keyboard and screen. 
$F770 - LDX //LF you want to access, 

sets up for input. 
$F1E1 - get character from a device, 

puts char in accumulator. 
$F7BC - LDX //LF vou want to access, 

sets up for output. 
$F232 - outputs a character to a device, 

accumulator contains character. 
$E3D8 - output character to screen from acc. 
$FFE1 - tests for the 'Stop' key and exits 

to 'Break' if 'Yes'. Otherwise returns. 
$F524 - opens file set up in LA, FA, SA. 
$F2AE - LDA //LF that you want to close. 
$FFE4 - get a character from keyboard buffer 

character goes into acc. 
$CA1C - prints a string terminated with a 

zero and located at Y,A. 
$C46F - input string (like Basic input), puts 

string in the basic input buffer ($0200) 
$DB55 - floats accumulator// 1. Necessary 

for conversion from LO,HI to ASCII. 
$DCE9 - Turn acc//l into ASCII at $0100 on. 

How to convert from LO,HI to ASCII: 



LDA //LO 
STA $5F 
LDA //HI 
STA $60 
LDX //$90 



SEC 

JSR $DB55 
3SR $DCE9 



ASCII number stored at $0100 hex. 

LA - $D2 - current logical address (for open) 

FA - $D4 - current first address 

SA - $D3 - current secondary address 

FN - $DA,$DB - filename address pointer 

FL - $D1 - file name length 



The following machine code program demonstrates the use of 
these locations and entry points. It will display on the 
screen the contents of a sequential disk file, the name of 
which is input by the user in the first part of the program. 



■AGE 0881 



.IHE# LOC 



Tif 



LINE 



8801 


0080 














0002 


0688 






0003 


8888 








£1000 






"- i—j i"i cr 


8888 






0006 


0000 






8807 

yyyy 

8069 

8010 


0000 

yyyy 

0000 
0080 






001 1 


0008 






KTK! i .-_ 


yj yj tj y} 






L^i L-1 1 -i 


0080 






..JkI 1 4 


Oyyy 






1 • 


yyyy 






001 6 


0000 






0817 


0000 






00 1 S 


0000 








t~T< i"j 1~J 1~4 

t>y t'f 






yj ^ 


yyyy 






8021 


000 y 






8022 


8888 






8023 


0888 






0624 


00610 






y y ^5 
0026 


0000 
0000 






8027 


0000 






y02o 


001061 






0029 

0030 


0000 

833 n 






0031 


833H 


c_y 




8832 


833B 






0033 


y33JJ 


h9 


00 


3034 


y o ■ J r 






8035 


y T 




DA 


3036 


034 1 






0037 


034 1 


H:_- 


y^. 


8833 


-j-.;:^,:-- 






3039 






iiE 


8040 


*i> • z-> *-t -3 






004 1 


O 




y2 


yy 4li 


8347 






8043 




"? 


tr 


■ '"•'•C'ii^ ^1 


y " 


n_7 


■..<•:• 


8043 








0046 


t J J 4 b 


o5 


v4 


004 r 


054.D 


69 


8 cL 


004 o 


83 4 F 






0049 


y ■;i L + 1 - 






0050 


KT .J. .J J. 


H 


00 


- i " cr -i 
=■_' K} X 


0353 






0052 


3353 






8053; 




T' T: 


00 


8054 


6356 






" j zr cr 
Ki - J •_' 


0356 


F8 


64 



.; *************************** 

. *PROGRAM TO READ A SEQUENTIAL 
. *FILE FROM IISK. 
:*REQUESTS FILE NAME THEN PRINTS 
:*GONTENTS OF FILE. DATA TRANSFER 
;*RATE IS ABOUT 3888 BVTfcS FER SEC 
; *************************** 

.SVSTEM VARIABLES 

HAL0=$BA; ADDRESS OF FILE NAME LO 
HAH I =$BE ; ADDRESS OF FILE NAME HI 
LA=$D2; LOGICAL DEVICE NUMBER 
FA=$D4 ; PR I MARV ABBRESS 
SA=$B3 ; SECONDARV ADDRESS 
FL=$B1 ; LENGTH OF FILE NAME 
ST=$96; STATUS COBE 

■SVSTEM SUBROUTINE CALLS 

INPUT=*C46F; INPUT DATA INTO BUFFER 
F0PEN=$F524 ; OPEN F I LE LA , r A , SA 
BASIN=$F1E1.; INPUT SOURCE BVTfc. 
PRT=iE:-:B8 ; PRINT CHARICTER TO SCREEN 
FCL0SE=$P2AE; CLOSE FILE. A 
CLRCHN=$FFCC; CLOSE I/O CHANNELS 



*=826 
START JSR INPUT 

■BASIC INPUT OF FILENAME INTO BUFFER 
LBA #$80 

; LOAB ACC WITH LO EVTE OF FILENAME ABBRtSS 
ST A NALO 

: STORE IN FILENAME ADDRESS POINTER LO 
LDA #$82 

, LOAD ACC WITH HI BVTE OF FILENAME ABBRtSS 
BTA h AH I 

, STORE IN FILENAME ADDRESS FOINTER HI 

LDA #$02 
■SET LOGICAL FILE TO 2 

ST A LA 

LDA #$08 
, SET DEVICE NUMBER TO 8 

3TA FA 

LDA #$02 
; SET SECONDARV ADDRESS TO 2 

STA SA 

LDX #$08 
.SET INDEX TO ZERO 



LOOP! LDA $8288..,-: 
;f€T A CHARACTER FROM INPUT BUFFER 
BEQ ENE 
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MBISKSRC2 PAGE 6902 

L I NE# LOG CODE LINE 





hj -_i -_l t_> 








; if 7FPn THEN FILENAME 


END 


CT ~? 


%j •— 1 • 


F* 






I NX 














;BUMP INDEX 




l~4 l~4 C Cl 

y y ._i y 
yy t>y 


y .j;t ._J 
t» O •_■ 


ill" - 


' ■ 


Ci'-' 


J MP L00P1 
.AND DO AGAIN 




yy b i 


t> -r* 1 












;Ti Ci. tZ* 
fc.' C* C 


03. c if: 




u 1 




END SIX FL 




H068 


V •«.» u. 








,SET FILENAME LENGTH 




fcj — O " 


fl-J^F 

t.' ■-'■- I L_ 


'"'0 




F5 


JSR FOF'EN 




00 6 Pi 


036 1 








; OPEN FILE 




0067" 


036 1 


20 


F1 


F1 


L00P2 JSR BASIN 














, GET CHARACTER FROM FILL 


006'-"l 






96 




LDV $96 




0070 


i-Vrit-xi-, 








■TEST STATUS 










06 




BNE OUT 




007*2 


j/j 't; jiT 








; END OF FILE OR ERROR I 


DETECTED 




r_l r_i 






F -' 


JSR FRT 




KJ t ™ 


036B 








■PRINT CHARACTER 




0075 


036 B 


4r 


61 


08 


JMP L00P2 




0076 


836E 








; DO AGA I N 




0077 


836E 












007S 


836E 


A5 


D2 




OUT LDA LA 




0073 


0370 








.; LOAD ACC WITH LOGICAL 


FILE 


8080 


0370 


28 


HE 


F2 


JSR FCLOSE 




0081 


0373 








CLOSE FILE 




0682 


8373 


20 


CC 


FF 


JSR CLRCHN 




008:3 


8376 








; CLEAR CHANNELS AND RE: 


z-EJ DEFAL 


0084 


0376 


60 






RTS 




0085 


8377 








. END 





ERRORS - 0808 



SYMBOL TABLE 



SVMBOL 
BASIN 
FCLOSE 
LA 

NALO 
ST 



■'ALUE 
F1E1 
F2AE 
88D2 
80DA 
0096 



CLRCHN 
FL 

L00P1 

OUT 

START 



FFCC 

00D1 

8353 
836E 
033A 



END 
FOPEN 
L00R2 
PRT 



yorji, 
F524 
8361 
E3D8 



rH 

INPUT 
N AH I 
SA 



88D4 
C46F 
88DB 
68 D3 



END OF ASSEMBLV 
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RANDOM ACCESS DISK FILES 



This is the most useful form of disk access, though much 
harder to program and more wasteful of disk space than 
sequential files. Whereas with a sequential file the actual 
position of the file on disk is unimportant, with random 
files we need to know the exact position (track and sector) 
of the data. To understand the use of random or direct (since 
data is accessed directly from a specified disk location) 
access files one must understand the way in which data is 
stored on disk. Data is stored in 35 concentric tracks, each 
track being split into between 17 and 21 sectors. Each sector 
or block (there are a total of 690 on a single disk) stores 
255 bytes of data. Data stored in a block can be referenced 
by its position; block 35 is at the position of sector 3 on 
track 2. This is the basis of random access on the 3040 disk 
drive, each record is allocated a block of 255 bytes which 
has its own address specified by the track number and sector. 
Not all blocks on a disk are usable, the whole of track 18 is 
reserved for the disk directory and should not be used for 
direct access, this means that the maximum number of usable 
blocks on a disk is 670. 

The use of direct access can be fairly complex unless certain 
rules are adhered to. The first rule: a whole disk must be 
dedicated exclusively to the storage of random data, since 
storing programs or sequential files on the same disk will 
cause problems with allocation of free blocks. The second 
rule: a record should not exceed 255 bytes long, otherwise 
problems will be encountered with block boundaries. Allied to 
the second rule is: when more than one record is stored in a 
block (this is a method of increasing the number of records 
on a disk) then the sum of the maximum lengths of all the 
records in a block should not exceed 255 bytes. 
The data stored in each block can be split into a number of 
fields, where each field is a string variable (as with 
sequential files, I prefer to use only one variable type in a 
file and thus convert all numeric variables to strings prior 
to writing on disk and vice versa when reading). It is very 
important when writing to a disk file that all blocks have 
the same number of fields, null data fields must be entered. 
Direct access records are best stored using fixed length 
fixed format data (see introduction). To increase the number 
of records above 670, each block must be divided into sub 
blocks. To have 1340 records means dividing each block into 
two 127 byte sub blocks, 2680 records four sub blocks of 63 
bytes etc. Each sub record will consist of one or more fields 
(note: each field has a maximum length of 80 bytes, therefore 
a 126 byte sub-block must have a minimum of 2 fields). 
Data can be accessed from a direct access disk by using the 
track and sector number of that data to locate and read it. 
This method might be used in a simple stock control system 
where each stock line is given a number corresponding to a 
record numbeKie the number of blocks from track 1 sector 1 



to the track and sector where the data is stored) on the 
disk. In many cases however a data record cannot be given a 
number. In these cases one must use an index. The index 
associates a key word with the track and sector number of the 
data associated with that data. The index is best held as an 
array, in fact as two parallel arrays, one string for the 
keywords and the other numeric for the track and sector 
numbers. The key word used must be something associated with 
the data, thus in an address file it would be the person's 
name. The following is an example of how data would be held 
in an address file index: 

Key-word track sector 

SMITH 1 1 

JONES 1 2 



BROWN 1 3 

WHITE 1 4 



etc. 



By searching through the index for a matching keyword, the 
track and sector where the associated data is stored can be 
obtained from the matching element in the numeric array. With 
a large key index, searching can be made easier by sorting 
the file into alphanumeric order (make sure that associated 
elements in both arrays are always kept together) and using a 
binary search (see machine code sort package). As data is 
added to the disk, the index array is updated with the new 
key word and the track and sector where its data is stored. 
The key index can be saved as a sequential file on the non 
direct access disk. 

The subroutines associated with this section are best 
understood by examination and running of the example calling 
program. 

To write a record to disk requires that a direct access data 
file is first opened using routine 22180. Records can then be 
written simply by inputting the record number DI and entering 
data into each of the fields in the record via an array A$() 
of NF elements, where NF is the number of fields in a record. 
In the example, entering a as record number terminates the 
data entry, closes the file with routine 22240, and returns 
to the function select menu. After entering all the records 
the file should be closed with routine 22240. 

S,*n ea n 3 reCOrd a direct access file is opened with routine 
Record number DI is then read with routine 22330, and 
the data placed in array A$() from elements 1 to NF. Having 
^ ea J a11 the records required the file is closed with routine 
22240 (in the example the file is closed by entering as 
record number). 

These subroutines use record numbers rather than track and 
sector. Subroutine 22480 -TRACK/SECTOR converts this record 
number into its corresponding track and sector numbers. It 
also stops data being written on to the directory track, 
track 18,(hne 22525). Full error checking is done by the 
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subroutine DISKERROR at 30300 which uses CURSORCONT to 
display full error messages on line 7k and 25. 



Parameters used by RANDOM: 



CH - direct access channel number 
D - drive number of direct access disk. 
NF - number of fields in a record. 

A$()- array of NF elements in which data fields of a record 
are stored during record read or write. 



70 
> 
Z 

2 HQ CR$=CHR*a3> 

1000 REM **************************** 

1001 REM *DEM0NSTRATI0N OF USE OF RANDOM 

1002 REM *fiCCESS FILE SUBROUTINES. 

1009 rem **************************** 

1018 CH=4 

103O INPUT".TWWDRIVE " , D 

1040 INPUT"MKNUMBER OF FIELDS ";NF 

105O PR I NT " n?MR ANBOM FILE DEMO FUNCTIONS:?!?]" 

1 060 PR I NT " 1 -WR I TE RECORD " 

1070 PRINT"WW2-REflD RECORD" 

1.088 PR I NT " WW3-END " 

1 090 GETA* : I FA*= " " THEN 1 090 

1100 A=VAL<A*> 

1110 ONflGOTO 1 200 .. 1 500 .. 1 1 20 

1120 END 

1200 REM **WRITE RECORD TO DISK** 
1210 GOSUB22180 

1220 PRINT"n?I?WRITE RECORD TO DISKMM" 
1230 INPUT "RECORD NUMBER ? ";DI 
1 240 I FD I =0THENGOSUB22240 ■■ GOTO 1 050 
1250 PR I NT "WW" 
1 260 FORQ= 1 TONF 

1270 PRINT "FIELD ,! ;Q;" IS - " ; 

12S0 INPUTA$<:Q> 

1290 NEXT 

1 300 GOSUB22080 

1310 GOTO 1220 

1500 REM ##REflD RECORD FROM DISK** 
1510 GOSUB22180 

1520 PRINT'TMWREfiD RECORD FROM DISKWW" 
1530 INPUT "RECORD NUMBER ? ";DI 
1540 IF DI=0 THENGOSUB22240: GOTO 1050 
1550 PR I NT "WW" 
1 560 GOSUB22330 
1570 F0RQ=1T0NF 

1580 PRINT "FIELD ";Q;" IS - ";M<Q> 
1590 NEXTQ 

1600 GET ft*: IFH*="" THEN 1600 

1610 GOTO 1520 

2000 REM 

3000 REM 

4000 REM 

5000 REM 

22080 REM**************************** 

22090 REM*ROUTINE TO WRITE RANDOM DATA 
22100 REM**************************** 

22 1 1 GOSUB'22'480 

22 1 20 PR I NT# 15 , "Ul " CH .; D , DT .; DS 

22 1 30 PR I NT# 15," E-P " CH , 1 

22140 F0RQ=1 TONF 

22 1 50 PR I NT#CH , fit- < Q > .: CR* , 

22160 NEXT 

22170 PRINT* 15, "U2"CH.; D ; DT; DS 
22 1 72 Gfisi IB3PiS00 
22175 RETURN 

22180 REM*************************** 
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22198 REM*ROUTINE TO OPEN RANDOM FILE 
22208 REM*************************** 

22218 OPEHCH,S,CH, "#" 
22228 OPEN 15, 8, 15 
22225 G0SUE38388 
22238 RETURN 

22248 REM*************************** 

22250 REM*pni ITINE TO CLOSE RANDOM FILE 
22268 REM*************************** 

22278 CLOSECH 
222S0 CLOSE 15 
22290 RETURN 

22320 REM***************************** 
22330 REM*ROUTINE TO READ RANDOM FILE 
22340 REM***************************** 

22358 nriSUB22480 

22360 PRINT#15,"U1"CH;D;DT;DS 

22378 PRINT#15, "E-P"CH.: 1 

22375 GOSUB30300 

22380 F0RQ=1T0NF 

22390 INPUT#CH,A*<Q> 

22480 NEXTQ 

22410 RETURN 

22480 REM***************************** 

22498 REM*BLOCK TO TRACK/SECTOR 
22588 REM*CONVERSION 

2251 8 REM***************************** 

22520 IF DK1 GOTO 22570 
22525 I FD I >357THEND I =D I +20 

22530 IF DK358 THEN DA=1 : DB=21 DC=DI-1 : GOTO 22 
22548 IF DK498 THEN DA=18 : DB=20 : DODI-358 : GOTO 
22550 IF DK606 THEN DA=25 : DB=18 : DC=DI-498 : GOTO 
22560 IF DK691 THEN DA=31 ■ DB=17 : DC=D I -606 : GOTO 
22578 DT=8 ■' DS=0 : GOTO 22608 
22580 DT= I NT < DC/DB > +DA 
22590 DS=DC- 1 NT < DC/DB > *DB 
22600 RETURN 

29880 REM *************************** 

29801 REM *C:URSOR CONTROL SUBROUTINE 
29305 REM *************************** 

29810 F\ct= »»ftiiiftftftftii»»»»»»»»tttft»»»»»t»»ir 

29820 AB*= " :£PMi!Mt!Mi!lPM^^ 

29356 I F C L > IT H E N P R I N T L E F T $ < A C * , COL-l > 
29860 I FLHE> 1 THENPR I NTLEFT* ( AD* , LNE-1 > .; 
29898 RETURN 

3O300 REM**************************** 

30381 REM*BISK ERROR ROUTINE 

38309 REM**************************** 

383 1 8 I NPUT# 15, EN , EM* , ET , ES 

30328 I FEH=0UOTO3O400 

30:-;:-:Q C:r:L=l •• LNE=24 •' G0SUB29888 

38348 PRINT"SDISK ERROR - ■'' EN, EM*, " T".;ET, n S";ES; " 
38350 PRINT" CONTINUE OR ABORT ? " , 
3036O GETA* : IFA*=" "THEN30360 
30370 I F A*<> " C " ANDA*Q- " A " GOTO3O360 
38380 I FA* = " A " THENCLOSECH • END 
3039O COL= 1 ■ LNE=24 : G0SUB29888 : PR I NTSP* , 
38488 RETURN 
READ V . 



DISK UTILITIES 



The two programs in this section are designed to give the 
user information about how data is being stored on disk; they 
are of most use when using direct access files. BLOCK MAP 
prints a table of all t e blocks on a disk, track by track, 
showing which blocks have been allocated for data storage by 
the system and which are free. Free blocks can then be used 
for direct access (modifying the subroutine TRACK/SECTOR one 
can block off allocated sectors). Alternately one may simply 
wish to find out how much free space is left on a disk. 
SECTORPRINT is the second of the two programs and is designed 
to print a table of data stored in a specified block. The 
data is displayed both in ASCII and hexadecimal form. Using 
this program one can see how data is stored on disk and also 
discover the source of disk errors or corruption. 



a 
< 
5 

108 REM ***************************** O 

110 REM *THIS DISK UTILITV PROGRAM ^ 

120 REM * ALLOWS ONE TO LOOK AT WHICH 

ISO REM *BLOCKS ON THE DISK ARE 

140 REM *ALLOCATED TO DATA OR PROGRAMS. 

150 REM *USEFUL IN CHECKING WHERE DATA 

160 REM *HAS BEEN STORED WHEN USING 

170 REM *RANDOM FILES. 

ISO REM ***************************** 

1000 POKE 144 ,49= REM *D I SABLE STOP KEV* 

1010 0PEN15,8,15 

1020 PRINTMXWWBSW" 

1030 PR I NT" HARDCOPY V OR N " : F-0 

1 040 GET A* • I FA* = " " THEN 1 040 

1950 IFA$="V"THENP=1 

1060 PRIHT"3«WWDRIVE# " 

1 OFO GETD* : I FD*= " " THEN 1 070 

1080 D=VAL<D*> 

1090 IFPTHENOPEN1 , 4 ■■ PRINT#1 PRINT#1 
11O0 PR I NT "3" 

1110 Pl*=" 1 2" 

1120 P2*=" TRACK 0123456789O1234567890 USED FREE" 

1 1 30 PR I NTP 1 $ PR I NTP2* 

1140 I FPTHENPR I NT# 1 P 1 * - PR I NT# 1 , P2* 

1150 F0RDT=1T035 

H60 DT*=RIGHT*<:STR*a00+DT>,2> + " 
1170 ADS=21 

1180 I FDT> 1 7THEN ADS=20 

1 1 90 I FDT>24THENADS= 1 8 

1290 I FDT>30THENflDS= 1 7 

1210 PR I NTDT* ; : I FPTHENPR I NT# 1 , DT* • 

1 220 AU=0 •' AF=0 

1230 FORDS=0TO20 

1240 fi$=". " 

1250 I FDS>=ADSTHENA$= " " : GOTO 1320 

1 260 PR I NT# 1 5 , " B- A " D ; DT ; DS 

1 270 I NPUT# 1 5 , EN , E 1 * , E2* , E3* 

1280 IFEH<>0THENAf="*" : AU=AU+1 : GOTO 1320 

1290 AF=AF+1 : PRINT#15, "E-F" ; D; DT; DS 

1308 GOSUB1440: IFEN=0THEN132O 

1318 PR I NT ■• PR I NT : PR I NT " D I SK ERROR " EH , E 1 $ , E2* , E3* : STOP 
1326 PRINTA*..' : I FPTHENPR I NT#1 , A*.: 

1330 NEXTDS 

1346 nlu-r' I GhT* ( STR* C AU+ 1 OO > , 2 ) + " " 

1 350 AUf =AUt+R I GHT* < STR* ( AF+ 1 OO > , 2 > 

1 360 PR I NT " " ; fill* : I FPTHENPR I NT# 1 , " " .; AU* 

1 3 . --e t;iJ=i::U+RU : BF=BF+AF 
1380 NEKTDT 

1390 PR I NT PR I NT : PR I NT 

1400 P3*=" BLOCKS USED "+STR$(EU)+" FREE "+STR*<BF> 
1410 PRIHTP3*: I FPTHENPR I NT#1,P3* 
1420 CLOSE 1 ■ CLOSE 15 
1430 P0KE144,46:END 
1 440 I NPUT# 1 5 , EN , E 1 * , E2* , E3* 
1450 RETURN 
REhDV. 
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TRACK 

61 

02 

03 

34 

95 

06 

07 

08 

09 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



24 

■-.cr 

26 

d i' 



1 234567890 1 234567890 US 



********************* 

********************* 

********************* 

********************* 

********************* 

********************* 

** ..*..*..*••*••*■•* 

******************** 

******************** 

******************** 

******************** 

******************** 

******************** 

* 



29 

30 

31 

Oc- »«■■■■■■■■■«■■■■ 

34 ... 

3F, 

ELnrKS USED 255 FREE 



CTi 


^ KC.C 


t't 1 


"■1 


KJ'J 


cL 1 


yy 


ill 


00 




£10 


21 


yy 


cL 1 


00 


21 


00 


21 


fu~1 


"'1 


00 


21 


00 


21 


w 1 


00 


w 1 


00 


21 


00 


"'1 

w J. 


00 


21 


00 




00 


08 


12 




00 


20 


00 
00 


-_• Kl 




20 


00 


20 


00 


01 


17 


00 


18 


00 


18 


00 


18 


00 


18 


00 


18 


00 


17 


00 


17 


00 


17 


00 


17 


00 


-l ~? 
1 I 
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Sample printout from program BLOCK MAP 



!2f- 



z 

100 REM ****************************** 5 

110 REM *DISK UTILITY PROGRAM TO PRINT a 
120 REM *COHTENTS OF A DISK SECTOR IN g 
130 REM *HEK AND ASCII. USEFUL IN CHECKING H 
140 REM *DATA STORED CORRECTLV. 2 
158 REM ****************************** f 
1006 D I MAc 264) 
1810 Z1$=CHR*<0> 
1815 PRINT "73" 

1020 PRINT"HhRDCOF"t' V OR N "i-P-& 
1 02 s7 . GET A* : IFA$= " " THEN 1 025 
1030 IFA*="V"THENP=1 
1 040 0PEN4 , 3 , 4 , " # " : CH=4 
1058 OPEN 15,8, 15 

1 060 I FPTHENOPEN 1,4: PR I NT# 1 , CHR* a 47 > ; 

107O PR I NT "IT 1 

1080 INPUT "DRIVE " ; D 

1090 INPUT "TRACK " ■ T 

1100 INPUT "SECTOR " ; S 

111© PRINT"WKW" 

1 1 20 PR I HT# 1 5 , " U 1 " CH ; D ; T ; S : GOSUB 1 49© 
1130 PRINT* 15, "B-P"CH.; 1 

1 1 40 FOR I = 1 TO250STEP5 = GET#4 , C 1 $ , C2* , C3* , C4$ , C5* 

1150 A<i::'=ASCO::l*+Zl*::' 

1160 A'::i + 1>=ASC , ::C2*+Zl*::' 

1170 Aa+2>=ASC<C3*+Zl*> 

1 1 80 A (. I +3 =ASC ( C4$+Z 1 $ > 

1 1 90 A < I +4 ) = BSC < C5$+Z 1 $ ') 

1200 NEXT I 

1210 FORI=1TO250STEP8 

1 220 I F I = 1 2 1 THENGOSUE 1 460 

1230 A$=R I GHT$ < STR$ < 1 000+ 1 > , 3 > + " : " 

1 240 PR I NT A* .; : I FPTHENPR I NT# 1 , A* ; 

1 250 FnRU=0TO7 

1 260 I FA < I + Q ) = 1 3THENA$= " : GOTO 1 300 

1 270 I FA I +Q ) = 1 OTHENAf = " < " : GOTO 1 300 

1280 I F A < I +Q >> 1 270RA (I+Q) <32THENAf = " . " : GOTO 1 300 

1 290 A$=CHR$ < A (. I +Q > > 

1 300 PR I NT A* ; : I FPTHENPR I NT# 1 , A* , 

1318 NEXTQ 

1 320 PR INT" " ; : I FPTHENPR I NT# 1 , " " ; 
1330 FORQ=0TO7 
1340 fl=A'- I+Q> 

1350 Hl=AHNni5 : A0=(AAND240>/16 

1 360 Al=Al+43 : IFA1 >57THENA 1 =H 1 +7 

1 373 fl@=fi0+43: IFA0>57THENA0=A0+7 

1330 PRINT" ";CHR*<A0>;CHR$'::A1); 

1 390 I FPTHENPR I NT# 1 , " " .; CHR* AO > CHR* < Ft i > .; 

14O0 HEXTQ PRINT" " : I FPTHENPR I NT#1 , " " 

1410 NEXT I 

1 420 PR I NT " MW" ■• I FPTHENPR I NT# 1 
1430 PR I NT "ANOTHER -VES OR NO-", 
1435 GET A* : IFA*=""THEN1435 
1440 IFA*="V"THEN1070 
1 4 c i0 CLOSE 4 : CLOSE 1 5 ; END 
1 460 GET A* : I FA*= " " THEN 1 460 
1470 PR I NT "11" 
1480 RETURN 

1 490 I NPUT# 1 5 , EN , E 1 * , E2* , E3* 
1 495 I F E N > T H E N S T P 
1500 RETURN 



READ 
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001 

069 
017 
025 
033 
041 
049 
057 
065 
07" 3 
081 
0:-,'9 



105 
1 13 
121 

i -2' )' 

145 

iDi 

169 



KMfiP. . . 



. .SECT 
PRINT 



JM 



. DIG 



. KfiHD 



* . I HI 
RAND. . . 



BDj 



. . . . DDPL 
uT. . . . 



, . . . RfiN 

Ti — Mi-. 

i-'di iU. . . 



04 32 11 06 42 4C 4F 43 

4B 4D 41 50 H0 fi6 fi6 OS 

H0 fl0 fl0 H0 00 00 00 00 

00 00 00 00 00 04 00 00 

00 82 11 01 53 45 43 54 

4F 52 50 52 49 4E 54 fi6 

fi6 H0 H0 H0 80 00 00 00 

00 00 00 00 00 05 00 00 

00 82 11 04 44 49 47 49 

54 H0 fi6 fi6 H0 HO H0 H0 

H0 fl0 H0 H0 00 00 00 00 

00 00 00 00 00 02 00 00 

00 32 11 05 52 41 4E 44 

4F 4D h0 a© as fie fie ho 

fie fi© fie fi© 00 ee ee 00 

00 00 00 00 00 05 00 00 

00 32 1 1 09 49 4E 49 54 

52 41 4E 44 AS fi0 fi0 fi0 

H0 fi0 fi0 H0 00 00 00 00 

00 00 00 00 00 06 00 00 

00 32 13 00 42 44 49 53 

50 fie fie fie fie fie fie fie 

fie fie oe fie ee ee ee ee 

00 ee ee is ee 64 00 00 

00 82 13 05 44 44 5@ 4C 

4F 54 fie oe oe fie oe 

fi© fie fi© fi© 00 00 00 00 

00 00 00 13 05 06 00 00 

00 32 13 02 52 41 4E 44 

44 45 4D 4F H0 fi© H0 fi0 

fi© fie fi© fie 60 00 ee ee 

00 00 60 00 00 00 ee ee 



£5- 



3 
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Sample printout from program SECTORPRINT 
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LINKING PROGRAMS AND SUBROUTINES WITH MENUS 



A menu is simply a program or subroutine which displays the 
different options available to the user in a program or 
program suite. The user can then use the menu to select an 
option, and the menu routine will either load the program or 
cause the program to jump to the start of the specified 
subroutine. A menu subroutine within a program is very 
simple, consisting of code to print the options list and a 
computed 'GOTO'. Examples of this type of routine are 
included in several programs in this book (eg: machine code 
sort package). A menu program to link and select different 
programs in a program suite is more complex, the following 
program ( MENU ) is an example. In this program lines 10 to 
150 print the option menu on the screen. Since this is an 
example the options are just called Program 1, Program 2 etc, 
in a real application this would be replaced by a description 
of the function. Lines 160 to 220 perform the function of 
loading the required program from disk drive zero. Line 160 
inputs a number which is equivalent to one of the numbers 
preceding the option description. In MENU this can be a 
number between 1 and 6. The selected program is then loaded 
by one of the lines between 170 and 220. A special trick is 
required to load one program from another using the disk, the 
trick requires the manipulation of the pointers to the start 
of the variable storage area in memory. These pointers are 
contained in locations 42 and 43, and should be loaded with 
the start of variable storage location for the program which 
is to be loaded. These values can be obtained by loading each 
program in the suite and PEEKing locations 42 and 43, noting 
the values for each program. In the example menu program the 
POKE values for locations 42 and 43 for each program are set 
to since there are obviously no programs, the correct 
values should be inserted. The reason each POKE value has 
three digits is that the values of locations 42 and 43 for 
the menu program must also be known before any values are 
inserted. If all numbers are entered as three digits, with 
leading digits zeros if required, then the menu program 
length will remain constant and the values for 42 and 43 will 
be constant. The values of the start of variables pointers 
for the menu are needed, since we want the menu program to be 
automatically loaded after each program in the suite has 
ended, instead of using the END command. See MERGE line 
1 308,page 82,where sample values for locations 42 and 43 are 
given. These should be changed as necessary. 
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1 REM ******************************** 

2 REM *MENU PROGRAM TO LINK DIFFERENT 

3 REM *PROGRAMS IN A SUIT OF PROGRAMS 

4 REM * TOGETHER. 
9 REM 

MENU" 



PROGRAM 1" 
PROGRAM 2" 
PROGRAM 3" 
PROGRAM 4" 



10 PR I NT "n 
28 PRINT" 
38 PRINT 
48 PRINT" 1 
50 PRINT 
60 PRINT" 2 
70 PRINT 
SO PRINT" 3 
90 PRINT 
108 PRINT" 4 
110 PRINT 
120 PRINT" 5 
130 PRINT 
140 PRINT" 6 
158 PRINT 

1 60 GET A* : I FA$= " " THEN 1 60 
1 70 I Fht= " 1 " THENP0KE42 , 080 
1 SO I FA$= " 2 " THENP0KE42 . 000 
1 90 I FA$= " 3 " THENP0KE42 . 000 
200 I FA*= " 4 " THENP0KE42 , 000 
2 1 I Ff\$= " 5 " THENP0KE42 , 000 
220 IFA*=>"6"THENEND 
READY. 



END" 



P0KE4 
P0KE4 
P0KE4 
POKE4 
P0KE4 



, 0£n3 ■ CLR 
.. 000 •' CLR 
.- 008 ' CLR 
.. 880 •' CLR 
.. 000 : CLR 



LOAD "8 
LOAD "0 
LOAD"© 
LOAD"© 
LOAD"0 



PROGRAM 1' 
PROGRAM 2' 
PROGRAM 3' 
PROGRAM 4' 
PROGRAM 5' 



130 



MISCELLANEOUS ROUTINES 



32TRACE 

This machine code utility program is intended for use with 
machines incorporating Basic 3.00 ROMs. Its function is to 
display each line of a Basic program as it is executed thus 
enabling the programmer to follow the logic flow of the 
program and detect where errors are occurring. The Basic 
loader for TRACE is loaded and run then initialised using the 
SYS command given by the loader program, prior to loading the 
Basic program to be tested. Having loaded the program, TRACE 
should be enabled using the SYS command given in the loader 
and the program run by typing RUN in the normal manner. Each 
line of he program will then be displayed in reverse field on 
line one of the screen as it is executed. 



DATAMAKER 

This program is designed to create a series of data 
statements containing the values of successive memory 
locations containing a machine code program. The data 
statements created can then be used with a simple Basic 
loader to load the values back into memory from a Basic 
program. DATAMAKER uses a technique of getting the computer 
to write its own program lines (see THE PET REVEALED' for 
further information on this subject). Having created the data 
statements, DATAMAKER should be deleted (to aid this it has 
been given line numbers from 60000 to 62000). 



32REPEAT 

This is another machine code program which allows a repeat 
key function to be added to a 16K or 32K Basic 3.00 PET. The 
Basic loader is loaded when the machine is first switched on 
and the repeat kev function will remain in the machine until 
it is switched off or the second cassette buffer is used. 
Once the repeat program is loaded the repeat function can be 
enabled with the command SYS(832), then any key will repeat 
if held down long enough. 



AUTOL 

A Basic program to automatically number lines when writing a 
program. Given the starting line number and line number 
increment, each line number will be displayed on the screen 
as lines are written. Simply enter the program line after the 
number and press return. The line will be entered into the 
program and the next line number displayed. Press the stop 



key to stop the program. By -tinning the program and entering 
a line number and increment of program lines to be deleted 
then pressing return after esch line number this routine can 
be used to delete lines. 



SCREENPRINT 



This little subroutine will transfer any alphanumeric data on 
the screen on to the printer in the same format as displayed 
on screen. This routine is intended for the 3022 printer and 
variable PN controls the interline spacing on the printer. It 
should be adjusted to suit the application. 



UJ 

U 
< 

H 

CNI 
CO 



1 REM ******************************** 

2 REM *TPflCE PROGRAM FOR BfiSIC 3.60 ROM 

3 REM *MRCHINES. DISPLAYS EACH L I HE OF Fi 

4 REM *PRfifiRAM OH THE SCREEN AS IT IS 

5 REM *EXEf:iiTED. USE SVS COMMANDS SHOWN 

6 REM *WHEN RUNNING THE PROGRAM, NOTE 

7 REM *THESE VALUES EACH TIME SINCh THEV 

8 REM *WILL VARV. 

9 REM 
18 E=52 

1 5 D = 

20 D AT A-342 , 1 62 , 5 , 1 89 , 249 , 224 , 1 49 , 1 1 2 , 282 , 1 6 , 248 , 1 69 , 239 ,133, 1 28 ,96 
3fi DATA173, -342, 133, 52, 173, -341, 133, 53, 169, 255, 133, 4^ by, 0,162, o_ 

40 DATA 1 34 , 43 , 1 62 , 3 , 32 , -27 1 , 288 , 249 , 2&d , 28b , 24b , J2 , -c. 1 , ^ , ^ 1 , ._o 
50 DATA121, 197, 162,5, 189,-6, 149, 112,202, 16,24b, lb9,242, ibb, iio,ib 
~f.fi DATA238 ,42,208,2, 238 , 43 , 1 77 , 42 , 96 , 238 , 1 1 9 , 208 , 2 , 'd&A 2U , y b 
70 DATA32, 115, 8,8, 72, 133, 195, 138, 72, 152, 72, 166^55, 165^4, xy,' 
80 DATA253 , 288 , 4 , 228 , 254 , 248 , 1 86 , 1 3* , 25b ; 1 bb , b5 , 1 b4 , ^4 ,1 |4 , ob ; * ^ 
90 DATA152,288, 14, 169,3, 133, 187, 202, 28*, 25 J, 1 J*, ^b,*^^*, 10. ;-0., 
tfifi D ATA246 , 32 , -54 , 1 69 , 1 60 , 1 68 , 80 , 1 53 , 255 , 1^7, 1 bb ;_20b , ^'--'0 , 1 oi , 1 r 
110 DATA37, 132,38, 132,39, 120,248, 168, IS, 6, 35, bb : bb , lb2,2^ ; iol _ 
120 DATA48, 117,40, 149,40,232,48,247, lob, lb, 2bb , ilb, bo, be, a, lw 
1 30 DATA48 , 1 33 , 1 83 , 1 34 , 1 82 , 1 8 1 , 37 , 72 , 74 , 74,74, < 4 , 82 , -_44 , 104 , 41 
1 48 DATA 1 5 , 32 , -44 , 1 66 , 1 82 , 282 , 1 6 , 233 , 32 , -bb , 32 , ,1b,., lo4, l • < , ; l ? 
1 50 DATA240 , 55 , 1 65 , 1 95 , 208 , 4 , 1 33 , 253 , 240 , 4 < , 1 b , 42 , 20 1 , ^ , ^Jo , o _ 
1 60 DATA 1 69 , 1 05 . 32 , -30 , 24 ,114, 33 ,41,127,1 78 i 1 68 , , 1 b5 , 1 4.« , 1 , 4b 
170 DATA:":. 200. 208, 248, 200, 202, 16,244, 135, 14^, 192, 48, b, S2, -32^0^ 
1 fifl DAT A268 , 245 , 4 1 , 1 27 , 32 , -32 , 1 65 , 1 1 9 , 1 33 L 184, 194, 168, 194, 1 ,-0, 10**, *0 
198 DATA96, 168, 173,64,232,41,32,208,249, 152, 96, 9,4b, l^lUf 
?m DATA4. 169.32,208,2, 198, 103,41,63,9, 12b, lb^, lyb,^,-,.4, ^4,^ 
210 DATA 153^0, 123, 192, 195,208,2, 160,7,208, 132, lb2, lb4, 18b, L-b, >b 
228 DATA-255 , 32 , -262 

388 S2=PEEK < E > +PEEK < E+ 1 > *256 : S 1 =S2+D-344 
318 F0RJ=S1T0S2-1 

READK : IF:K">8CiRK=0THENGOTO350 
338 Y=>i+S2 : K=IHT<V/256> ■ 2=V-K*256 
340 POKE J, 2 J=J+1 
358 POKE J, K 

400 PR I NT :i 2I?MP>i»*i*i*iHi*i»*i*»I^TRACE " 

410 PRINT"MMKW" 

5H0 PRINT" INITIALISE WITH SVS( " ; Sl+17" ) " 
510 PR I NT "ENABLE WITH SV3< " ; SI +56" > " 

528 PR I NT "DISABLE WITH SVS< M ;Sl+2"> " 

330 PRINT "CHANGE SPEED WITH POKE" ; S1+125-D" , k" 
540 L.ND 
READV. 
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1080 REM ***************************** 

1001 REM *THIS PROGRAM WILL CONVERT A 

1002 REM *MACHINE CODE PROGRAf+^STORED IN 
100:-: REM *MEMORV INTO ft SERIES OF DATA 

1004 REM *STATEMENTS WHICH CAN EE USED 

1005 REM *BV A BASIC LOADER PROGRAM TO 

1006 REM *LOAD THE MACHINE CODE INTO THE 

1007 REM *FROM BASIC. SPECIFV THE START 

1008 REM *AND END MEMORV LOCATION OF THE 

1009 REM *MACHINE CODE (IN DECIMAL;-. 

1010 REM *THE DATA STATEMENTS CONTAIN THE 

1011 REM *V ALLIES OF EACH BVTE IN DECIMAL. 

1012 REM *ALSO SPECIFV THE STARTING LINE 

1013 REM *NUMBER AND INCREMENT OF THE 

1014 REM *DATA STATEMENTS (LINE 69090 >. 
1020 REM ***************************** 
60000 I NPUT " 3START# , STEP " ; S , T 

60010 I NPUT "START ADDRESS DECIMAL" ; E 
60020 F=B : L=F+10 

60030 I NPUT "END ADDRESS DECIMAL" ; E 

60050 PRINT"MWWW" 

60068 P0KE83 1 .. I NT C E/256 > 

60070 P0KE832 , E- 1 NT < E/256 > *256 

60 1 00 P0KE828 .. T : GOTO60500 

60200 S=PEEK C 826 > *256+PEEK < 827 > 

60300 T=PEEK<828> 

60310 L=PEEK<829>*256+PEEK<:830::' 

60330 E=PEEK i 83 1 > *256+PEEK < 832 > 

60340 I FL>=EGOTO62000 

60350 F=L+1 ^L=L+10 

60400 PR I NT "1 

60500 PRINTS; 

69600 PR I NT "DATA"; 

60700 FORP=FTOL:pRINTPEEK<P>; "II, "; ^E^TP 

60800 PR I NT" II " 

60900 PR I NT " GOTO60200.TTTT ; 

6 1 OOO POKE 1 58 , 2 : P0KE623 , 1 3 : P0KE624 , 1 3 

61100 S=S+T 

61200 P0KE826, INT':.'S/256> 
6 1 300 PGKE827 , S- 1 NT < S/256 > *256 
61400 P0KE829, INT<:L/256> 
6 1 500 POKE830 , L- 1 NT < L/256 > *256 : END 
62000 STOP 
READV. 



m 

> 1 REM ******************************* 

2 REM *BASIC LOADER FOR 

3 REM *MACHINE CODE PROGRAM TO ADD A 

4 REM ^REPEAT KEV FUNCTION TO A 32 K 

5 REM *PET. HOLDING THE KEV DOWN WILL 

6 REM *CAUSE IT TO REPEAT. INITIALISE 

7 REM *WITH SVS<832>. 

9 REM ******************************* 

10 FGRQ=832T0891 fjvo - oj^-S 
20 READA 

3M POKEQ..H 
40 NEXTQ 
50 END 

1 00 DATA 1 20 , 1 69 , 79 , 1 33 ,144,1 69 , 3 , 1 33 ,145,1 69 
1 1 DATA 1 , 1 33 , 2 , 88 , 96 , 165,151,197 , @ , 240 , 9 
1 20 DATA 1 33 , , 1 69 ,16,1 33 , 1 , 76 , 46 , 230 , 2 1 , 255 
1 30 DATA240 , 249 ,165,1 , 240 ,4,1 98 , 1 , 208 ,241 
1 40 DATA 1 98 , 2 , 208 , 237 , 1 69 ,4,1 33 ,2,1 69 , , 1 33 
150 DATA151 , 169, 2, 133, 168, 208, 223 
RE ADV. 



1000 REM ************************ 

1010 REM *ROUTINE TO AUTOMAT I CALV 

1020 REM *NUMEER LINES WHEN WRITING 

1030 REM *fl PROGRAM, ENTER START 

1040 REM *LINE AND LINE INCREMENT 

1050 REM *THEN ENTER PROGRAM LINES 

1060 REM * AFTER LINE NUMBER. 

1070 REM ************************ 

60000 I NPUT " nSTARTtt , STEP " ; S , T 

60050 PRINT ,, MWWW" 

60 1 00 P0KE828 , T -" GOTO6050O 

60200 S=PEEK ( 826 ') *256+PEEK < 827 ) 

60300 T=PEEK «; 828 .-■ 

60400 PRINT".! 

60500 PRINTS, 

6O700 GETD* ■ I FD*= " " THEN607O0 

60800 PRINTD*; : IFASC<D*:K>13THEN60700 

60900 PR I NT " GOTO60200Tn" .; 

6 1 000 POKE 158,2: PQKE623 ,13: P0KE624 , 1 3 

61100 S=S+T 

61200 P0KE826, INT<S/256> 
6 1 300 P0KE827 , S- 1 NT (. S/256 > *256 : END 
RE ADV. 
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10 h'N=24 
20 SP*=" 
25060 REM 




u 

Qu 
Z 
UJ 

in 
U 



?50m1 REM *SCREEN PRINTER SUBROUTINE 
2^hm9 REM ****************************** 

250 1 0PEN3 ,4,6: PR I NT#3 , CHR* < PN > 

2502W 0PEH4 , 4 : PR I NT#4 , " " : PR I NT#4 , SP* ■ 

250 ",0 FORQ=0TO939 : fi=PEEK < Q+32768 > 

25040 E= < HAND 1 27 OR '■. ( HfiNH64 > *2 >OR< < 64-fifiNB32 > *2 > 

25050 PRINT#4,CHRf <E>; 

25060 :*:=:=;+ 1 : if;k=40THEnprint#4, :print#4,sp*j =x=e 

25070 NEXT:CL0SE4 
25880 RETURN 



REflDV. 
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